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1. ABSTRACT 

The PDP-15 Extended Memory Checkerboard test verifies the 
operational status of core memory by testing for core failure 
on halt-selected lines under worst case noise conditions. 
The program tests any memory configuration of from 8K to 
128K words, in 4K segments. Seven patterns are used for 
testing, and these may be selected individually by the operator. 
The program relocates automatically in order to test all 
memory fields from each field. 

2. REQUIREMENTS 

2. 1 Equipment 

A standard PDP-15 equipped with 8K to 128K words of core memory. 

2.2 Storage 

The program occupies approximately 3500 octal locations of any 

4K memory field. 

3. LOADING PROCEDURE 

The program may be loaded into any low order 4K field {0000 to 
7777 octal) of memory block (fields 00 thru 07). Normally 
load the program into memory field 00, as follows: 

a. The tape supplied is punched in the ABS mode. 

b. Place the tape in the reader. 

c. Set the ADDRESS switches to 017700; the BANK MODE switch to 

a 1. 

d. Press RESET and then READ- IN. 
4. STARTING PROCEDURE 

4.1 Starting Address 

The starting address is 000200. 
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4 . 2 Restarting Address 

Restart from J2fJ2fj2(215 (or FF/2f215) to retain previous program 

conditions . 

Restart from 000200 (or FF02)2f|2f) to setup the test limits and 

ACS and to reinitialize the program. 

FF = Field Number. 

4 . 3 Operator Action 

After starting from 200, the program will print "TEST LIMITS". 
The operator must ehn specify via the Teletype keyboard the 
amount of core memory to test, followed by a carriage return. 
The program assumes 4K fields numbered 00 thru 37, octal. This 
is the Field Number. Memory Block contains 4K Fields 
Numbered 00 thru 07; Memory Block 1, 10 thru 17; Memory Block 
2, 20 thru 27; Memory Block 3, 30 thru 37. 
4.3.1 Specify the Test Limits 

a. Type two field numbers, separating the field numbers with 
a comma, and then a carriage return. 

b. The first number typed signifies the first 4K field to test, 
and the secon number the last 4K field to test. 

c. The program will begin testing with the lowest order 4K 
field to test and will test all consecutive fields up 
to an including the highest specified. 

d. The 4K field containing the program may be included. It 
will be tested after program relacation takes place. 
Program relocation is described in Section 5.1.1. 
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e. If an error is made during typing press the RUBOUT key. 
"TEST LIMITS" will be printed again. Previous input is 
ignored. 

f. The highest 4K field to be tested may be typed first. The 
program will reverse the two numbers so as to make the 
first number the last field to test. 

g. Any single field or any two or more consecutive fields 
may be specified. 

For the following examples assume that the program is in field 00 
(000000 to 001111) , and the PDP-15 being used is equipped with 
12 8K of core memory. 
Example A ; 

TEST LIMITS 

00r01^ (J) denotes carriage return 

The program will test all 8 fields of memory block 0. 
Example B ; 

TEST LIMITS 

07,00^ 

The program will perform exactly as Example A. 
Example C ; 

TEST LIMITS 

23,23j 

Field 23 will be tested alone. Field 23 is locations 

230000 to 221111 of memory block 2. 
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Example D : 

TEST LIMITS 

16, 21^ 

Locations 16j2fj2f00 through 217777 (fields 16, 17, 20 and 

21 will be tested. 
Example E'i 

TEST LIMITS 

0fi2(,j2(i2^ PROGRAM IS FIELD 00 

00,01^ 

Example E shows the message printed by the program when a 

single field is selected which currently contains the program. 

"TEST LIMITS" is printed again, and the operator must then 

correct the test limits . 

Operation of the program is unpredicatable if the amount of 

core memory selected for testing exceeds the actual amount 

available, i.e., selecting 32K f6r testing on a PDP-15 

equipped with a maximum of 12 8K, or if the program is loaded 

into any memory block except 0. 
4.3.2 Setup ACS - 

After the test limits are specified, the program will print 
"SETUP ACS". For normal program operation the ACS must be set 
to 000000 octal. Press any key on the Teletype keyboard after 
setting the ACS to all 0's. The program will then run until 
stopped by the operator. Normal program operation is defined 
as performing all eight checkerboard patterns on all of available 
memory from every 4K memory field. 
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5. OPERATING PROCEDURE 

5. 1 Program and Operator Action 

a. Load the program into memory block as described in 
Section 3. 

b. Specify the test limits via keyboard as described in 
Section 4.3.1. 

c. The message "SETUP ACS" will be printed. Set the ACS 
to 000000 octal, and press any keyboard key. 

d. The program will write one pattern in one 4K field, 
after which, each bit of address is read and tested. 

e. Repeat step d on each location in the 4K field. 

f . Setup for the next 4K field and repeat the read and test 
sequence in steps d through f. 

vSfhen all fields have been tested in this manner, the next 
pattern is written, and steps d through f repeated. 
When all four tests have been executed, on all of memory, the 
program then relocates and performs all four tests again. 
5.1.1 Program Relocation 

Program relocation depends upon the amount of core memory 
being tested. Relocation is always within the group of 4K 
fields selected for testing, and under certain conditions 
the program may not relocate at all, but will remain in the 
current field to perform the tests (see below) . The program 
normally first relocates to the highest order 4K field under 
test. From there it relocates to the next lower 4K field, after 
performing all tests. The program keeps relocating to the 
next lower 4K field until it reaches the lowest order 4K 
field under test. The testing and relocation cycle is then 
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repeated. This procedure is repeated until stopped by the 
operator with ACS 0. As an example, if the program is initially 
in field 00, and 128K of memory is selected, the program 
would relocate from 00, to field 37, then to field 36, 35, 34, 
33, 32, 31, 30, 27, 26, etc. in that order. The program 
does not relocate to any field which is not included in the 
test limits. If fields 14, 15, and 16 were selected, 
relocation would be from 00 to 16, then 15 and 14. Fields 
00 through 13 and field 17 through 37 would not contain the 
program again until included in the test limits. 

The program will not relocate if any of the conditions described 
below exist: 

a. A forced relocation has been made (Section 8.2.7). 

b. Only one 4K field is selected for testing. 

c. An error was detected in all of the available 4K fields 
under test. 

d. ACS 9 is on a 1 to inhibit program relocation (Section 
o . ^ « b j . 

The location of the program is indicated by the message 
"PROGRAM IS IN FIELD FF", where FF is the field number. This 
message occurs immediately after each program relocation. The 
message printout may be deleted by placing ACS 11 on a 1 at 
any time. The printout will resume when ACS 11 is placed 
on a 0. 

The program provides a degree of protection for itself by 
not relocating to any field which has an error. The field 
nutnber in error is saved, and is compared to the destination 
field number before relocation takes place. If equal, the 
next lower field is set up as the destination providing it has 
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no error. The first field ound to be error-free is set up 
as the destination. Relocation will not take place if all 
fields have shown errors. The program will resume relocating 
to a field whenever the error condition does not exist. 
During the relocation process the program tests each data 
word transferred to the new field by performing the transfer, 
reading the word back and comparing the word with the correct 
data in the current field. This is done on a one for one 
basis until the process is completed. The entire 4K field is 
moved to enable loaders or any other data to be carried with 
the program. If an error is found during relocation, the 
address is error, and the "good" and "bad" data words are 
printed. The error printout format is described in Section 6. 
6. ERRORS 
6.1 Error Printouts and Description 

Immediately after the first error is detected, the header shown 
below is printed. The header is not printed again until restarting 
from 200 or 215. 

TEST OCTAL ADR GOOD BAD PAT CONTROL WORD 
Where : 

TEST =The current test which detected the error. 

OCTAL ADR =The octal address which contains the data 

in error. 
GOOD =What the data should have been in that 

address. This will alwjiys equal 000000 

or 777777 octal. 
BAD =The data as read from that address. This 

will always contain one or more bits which 

are the complement of those shown under GOOD. 
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PAT CONTROL WORD 



=The control word used by the current test 
to generate the checkerboard pattern. This 
will be 463144 or 314633 for test 1; 
63146J3f or 146317 for test 2; 525250 or 
252527 for test 3. 



TEST 


OCTAL ADR 


GOOD 


BAD 


PAT CONTROL WORD 


1 


01A000 


000000 


000001 


463144 


1 


0^0200 


mill 


161111 


314633 


3 


0\^000 


000000 


000001 


52525j2( 


4 


12(37555 


111111 


311111 





In the above example, errors were detected by tests 1, 3 
and 4 in memory field 01, 06, and 03. Test 1 detected a 
"picked up" bit at location 4000, field 1, and a dropped bit 
at location 200, field 6. Test 3 detected the same error as 
test 1 at location 4000, field 1, and test 4 detected a bit 
error at location 7555 in field 3. 

After each error printout, the program continues testing with 
the next sequential memory location. 

Three AC switches may be used to control the error printouts . 
Placing ACS on a 1 during the printout will cause a program 
halt after completion of printing. ACS 1 on a 1 will inhibit 
the printout and cause a program halt. Press CONTINUE to 
receive the error printout and to continue testing. ACS 2 on 
a 1 will inhibit printout and ring the TTY BELL for each error. 
The use of these switches is described in Section 8.2 in 
more detail. 
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6.1.1 Program Relocation Error- 

This message will be printed upon detection of a relocation 
error. The error information will immediately follow as in 
the example below. After all errors have been printed the 
message "NO MORE ERRORS" is printed, and the program will then 
set up to relocate to the next lower field if one is available. 
EXAMPLE : 

TEST OCTAL ADR GOOD BAD PAT CONTROL WORD 

PROGRAM RELOCATION ERROR 

JJ31000 741)2fj2f0 7^0000 

031001 611005 601005 

031002 760207 760007 
NO MORE ERRORS 

The above example shows three consecutive errors during program 
relocation to field 03. Field 02 would be set up for 
relocation. Location 1000 in field 3 should have contained a 
SKP instruction, but bit 11 was dropped during the transfer. 
Bit 5 was dropped in the JMP instruction in 1001. and bit 
10 dropped in the LAW instruction in 1002. 

6.1.2 Printouts Inhibited 

This message is printed whenever 64 (decimal) consecutive 
printouts have occurred. Error printouts will be inhibited 
until after all four tests have been run eight times, after 
which the error printouts will resume 64 more printouts. This 
feature is not used with program relocation errors. This 
feature is included to prevent lengthy error printouts when the 
program is being run for an extended period of time unattended. 
Error printouts may be resumed by restarting the program from 

location 200. 
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6.1.3 Program is in-JField FF 

WHERE "FF" IS A FIELD NUMBER. This message is printed if one 
of the following conditions exist: 

a. The operator has specified a single field for testing 

and that field contains the program. Select another field, 
refer to Section 4.3. 

b. After every program relocation. 

6.1.4 Error in Selected Field 

This message is printed when a forced program relocation is 
attempted and the program has previously detected a data error 
in that field. Type a new field number, or press carriage 
return to resume automatic program relocation. See Section 
8.2.7 for instructions to force the program to another field. 

6.1.5 First/Last ADR is Within Program 

The operator has specified the first or last address, as 
indicated by the printout, which is within the program area. 
Retype a new address. See Section 8.2.8 for setting up scope 
loops via keyboard. 

7. RESTRICTIONS 

7.1 Starting Restrictions 

Start from FFfl200 to set up the test limits and ACS add to 
reinitialize the program. 

Start from FFj2(215 to retain the present program conditions. 
(FF = the field the program is in) . 

7.2 Operating Restrictions 

Don't use the STOP key to halt the program. Place ACS on a 1. 

8. MISCELLANEOUS 
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0.1 Execution Time 

The time required to run all four tests on one 4K field is 

approximately 15 seconds. 

The time required to run all four tests in 37 (octal) 

4K fields is approximately 4 hours, 20 minutes. 

The above times are based on a B00 ns cycle time. 

3. 2 Applications 

To give the operator control of the program, the ACS are 
assigned unique functions. The ACS assignments and their 
effect on the program are described below. Please note that 
it is important that the program be halted with ACS rather 
than the STOP key. Using tiie STOP key may result in a halt 
while the program is relocating. The operation may not be 
initiated immediately since most of the ACS are sensed only 
after all tests have been performed. 

8.2.1 Halt After Test or Error Printout - ACS 

Placing ACS on a 1 at any time while the program is running 
will cuase a halt after the current test is completed on one 
4K field. The MO will = 652. The ACS may then be changed if 
desired. Press CONTINUE to recover. If no ACS changes the 
program will resume the test which was interrupted. If 
ACS changes were made the new setting are stored and executed. 
Raising ACS ,0 during an error printout will cause a halt at 
the same location mentioned above, after the printout. 

8.2.2 Delete Error Printout and Halt on Error - ACS 1 

Raising ACS 1 at any time causes all data error printouts to 
be inhibited. A halt will occur with the MO = 654 if an error 
occurs. Press CONTINUE to receive the error printout and to 
resume testing. ACS changes may be made. 
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3.2.3 Bell on Error - ACS 2 

ACS 2 on a 1 causes the program to ring the TTY BELL whenevery 
an error occurs. 

This is convenient when attempting to isolate an intermittant 
eriDr. ACS 1 has no effect if ACS 2 and 1 should both happen 
to be on a 1. If ACS and 2 are 1, a halt occurs after the 
bell. Proceed as described in Section 8.2.1. 

8.2.4 Test Selection - ACS 3 through 6 

Any one, or any combination of tests may be executed by 
setting any combination of ACS 3 through 6 to a 1. ACS 3 
specifies tests 1; ACS 4, test 2; ACS 5, test 3; ACS 6, test 
4. The test specified by the most significant ACS will be 
performed first. 

If all four ACS are 0, all four tests are performed in sequence. 
The ACS may be changed while the program is running. The new 
test will be recognized after the last of the current selection 
is performed. 

8.2.5 Inhibit Program Relocation - ACS 9 

The program normally relocates utomatically as indicated 
by the PC or MO indicators . To retain the program in its 
current 4K field, place ACS 9 on a 1 at any time. 

8.2.6 Inhibit "PROGRAM IS . IN FIELD" - ACS 11 

The program normally prints the field number containing the 
program immediately after each relocation. The message 
may be suppressed by placing ACS 11 on a 1 at any time. To 
resiime the printout place ACS 11 on a 0. This switch does not 
inhibit the message printout when an operator error is made. 
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3.2.7 Program Relocation - ACS 12 

The operator may relocate the program to any 4K field by 
specifying a forced relocation with ACS 12 on a 1. Use 
the following procedure. 

a. Halt the program with ACS 0. 

b. Place ACS 12 on a 1 and ACS on a 0. Press CONTINUE. 

c. A printout will occur which instructs the operator to 
place ACS 13 on a 0. The program will loop until this 
is done . 

d. With ACS 12 on a the message GO TO FIELD is printed 
followed by the program waiting for a field number. 

e. Type the desired field number (00 through 37). 

f. Relocation is done immediately, and the program is 
executed in the new field. 

The program will not relocate again until restarted from 200, 
or in step d above, press carriage return to resume 
automatic relocation. 

If a data error was previously detected in the new 4K field, 
the message "ERROR IN SELECTED 4K" is printed, followed by 
step d repeated. Type another field number, or carriage 
return to resume normal operation. 

Each word transferred to the new field is tested in the same 
manner as described in Section 5.1.1, Program Relocation. 
Printouts occur for each relocation error. Step d will be 
repeated after all error reporting is done. Type another 
field number, or carriage return to resume normal operation. 
At times, the program will automatically restart at 200 and 
print TEST LIMITS. This will occur whenever a single field 
has been selected for testing, and the operator relocates 
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the program to that field. New test limits must be specified 
since the program cannot run the tests on its own 4K field. 
Proceed as described in Section 4.3. 
8.2.8 Request Scope Loop - ACS 13 

The operator ma- initiate, via keyboard, any- single or 

any group of consecutive locations up to 4K for the program 

to loop on. Any of the four data patterns may also be requested. 

No error checking is done in the loop. The loop reads a 

location, complements the data and rewrites into the same 

location. Each location within the limits specified is 

treated likewise. The limits specified are looped until 

halted with the STOP key. The program must be restarted 

from 200 to resume normal operation. 

Initiate the loop with the following procedure ; 

a. Halt the program with ACS 0. 

b. Place ACS 13 on a 1 and press CONTINUE. 

c. The message "TEST" will be printed. The program now wiats 
for a selection by the operator. 

d. Type the desired test number. Either 1, 2, 3, or 4. 
An automatic carriage return follows. 

e- The message "FIRST ADR" is printed. 

f. Type the first address of the group to be looped by the 
program. This number must be a 6 digit octal niimber. An 
automatic carriage return follows. 

g. The message "LAST ADR" is printed. Type a 6 digit octal 
address to indicate the last address of the group. The 
scope loop is immediately entered after the last address 
is typed. 
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The loop may also be initiated by restarting from 200 or 

125 and placing ACS 13 on a 1 under "SETUP ACS". 

If a typing error is made press the RUBOUT key. A ? will be 

printed, and the input routine will restart with "TEST". 

Example A ; 

TEST 3 

FIRST ADR 010100 

LAST ADR 010100 

Address 100 in field 1 will be looped continuously after 

checkerboard pattern niimber 3 is written in the entire 4K field. 

Example B ; 

TEST 2 

FIRST ADR 020000 

LAST ADR 027777 

The entire 4K number 2 will be looped after pattern number 

2 is written. 

Example C ; 

'.; TEST 2 

FIRST ADR 027777 
LAST ADR 020000 

The input routine will reverse the two addresses and perform 

exactly as example B. 

Example D t 

TEST 4 

FIRST ADR 000100 

FIRST ADR IS WITHIN PROGRAM 

FIRST ADR 010100 

LAST ADR 010200 

Example D shows the message printed when an address is 

selected which is in the field containing the program. 

In this case, field 0. 
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Example E ; 

TEST 5 

TEST 4 

FIRST ADR 070000 

LAST ADR 07A000 

In example E the operator typed an invalid test number. The 

program printed the question mark, and restarted with TEST. 

The instructions in the body of the scope loop appear below . 

SCPl EEM /ENABLE EXTEND MODE 

LAC* MEMADR /READ 

CMA /COMPLEMENT DATA 

DAC* MEMADR /WRITE 

LAC MEMADR /ADDRESS 

SAD LTST /COMPARE TO LAST 

JMP STSCP /DONE 

ISZ MEMADR /INCREMENT ADR 

JMP SCPl /LOOP 

STSCP LAC ADRA /FIRST ADR 

DAC MEMADR /RESTORE COUNTER 

JMP SCPl /GO TO TOP OF LOOP 

Note that one 4K field is the maximum that may be looped by 

the program. If 4K field boundaries are overlapped, the 

checkboard pattern will be written in the field specified 

by the FIRST ADR. The scope, however, will reference the 

locations specified. 

8.2.9 Bit Suppression - ACS 14 

Excessive error printouts due to one or more bits in error 

may be suppressed by specifying the bit positions via 

keyboard input. The bit positions will still contain the 

checkboard patter, and will be tested. Error printout 

will occur for any bit position not selected. 

Use the following procedure ; 

a. Halt the program with ACS 0. 

b. Place ACD 14 on a 1, and press CONTINUE. 

c. The message "SUPPRESS" will be printed and the program 

Walts for inputs. 
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d. Place ACS 14 on a 0. 

e. Type in decimal, the desired bit position to be suppressed 

(0 through 17) . 

f. Press the carriage return key. 

Error printouts for that position alone will not occur. 

To suppress more than one bit position ; 

a. Proceed as above, but separate the selected bit positions 

with a comma in step (e) . As an example, to suppress 

bits j2f, 8 and 17 type J2f, 8, 17). 

Press RUBOUT and the CARRIAGE RETURN to continue with 

error printouts of all bit positions. 

Each time the bit suppressing routine is entered with 

ACS 14, the previously selected positions must be retyped 

if suppression is wanted. 

The program is not effected in any way by the typing of 

letters, or nuinbers greater than 17. The resulting 

positions suppressed would be unpredictable. 
9. PROGRAM DESCRIPTION 

The program is designed to run worst*-case checkerboard 
patterns for 3K memory stacks. 

A minimum of 8K of core memory is required, and a maximum 
of 12 8K words may be tested. The program automatically 
relocates from 4K field to 4K field to test all of memory from 
each field. The patterns are shown below as they would appear 
in a portion of one bit plane. Pattern number 3 is considered 
to be the worst case pattern of most PDP-15 memory stacks. 
The patterns are copiplemented albng the X axis every 40 octal 
addresses. The X axis is addressed by bits 12 through 17, 
and the Y axis by bits 6 through 11. 
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Test 1: 





Y axis 




Y axis 




X axis 


10011001^ 
10011001 

• 



X axis 


01100110 
01100110 

• 


40 


• 

01100110 
01100110 


40 


• 

10011001 
10011001 


Test 2: 











X axis 



Y axis 

11001100 
11001100 




X axis 



Y axis 

00110011 
00110011 



40 



Test 3; 



00110011 
00110011 



11001100 
11001100 




X axis 



Y axis 

10101010 
10101010 



Y axis 

01010101 
X axis 01010101 



40 



Test 4: 



01010101 
01010101 



10101010 
10101010 



This test writes all ones into a memory field. One 
X axis line is then cleared to (all 18 bit planes), 
and then read 1024 times. All intersecting Y lines are 
then addressed and checked to make sure the contents 
did not change. All 100 (octal) X lines are tested 
in this manner. 
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The operator is given a degree of control over the 
program with the AC switches. The operator may halt 
the program (0) ; inhibit error printouts and halt 
on error (1) ; substitute the Teletype bell for error 
indication (2); select any one or a combination of four 
test patterns (3 through 6) , inhibit program relocation 
(9), relocate the program to any 4K field (12); setup 
a scope loop via keyboard input (13) ; and inhibit error 
printouts for one or more bit positions (14) . 
10. LISTING 
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PkU 1 MXCH19 



/ 

/PDP-IS EXTCNDIO MIMORY CHeCKERBOA«D, 

/9K MINIMUM CORE REQUIREDi S.A. ' 200, 

/ 

/COPYRiCHT 1970, OICITAL EQUIPMENT CORP., 

/MAYNARO, mass, 017»4 

/ 

/J, RtCHAROSON 

/Oi MACOMBIR 



PACE 



MXCHl? 



MXCH15 









•TITLE 


MXCH15 






f 


,ABS 




00001 




t 


.LOC 


1 


00001 


600001 


JMP 


1 


00002 


777777 




LAW 


-1 


00003 


mm 




LAW 


■1 


00004 


mm 




LAW 


-1 


00009 


mm 


/ 

Tl.8« 


LAW 


-I 




700406 


1700406 






700401 


TSrf70040i 






700301 


KSf! 


1700301 






700312 


KRli 


1700313 






721000 


PAXi 


1721000 






707764 


CBA! 


i7«77«« 






707762 


EPAi 


1707762 






707761 


SBAi 


1707761 






707741 


i:XBAtrB7741 






739000 


CLXi 


1731000 








.EJECT 





PAOC 



MXCHll 



MXCH15 



ZZZHH 



.LOC 



200 



00200 


707762 eCGlN EPA 




00201 


14S124 


D2M 


FLAGS 


00202 


143201 


D8M 


PINX 


00203 


100693 


JMS 


WHERE 


00204 


043129 


DAC 


INSCLO 


00209 


101660 


JMS 


SLMTS 


00206 


102013 


JMS 


SETAC 


00207 


777777 


LAW 


-1 


00210 


043173 


DAC 


ilTSUP 


00211 


777700 


LAW 


■10B 


00212 


043290 


DAC 


MAXERR 


00213 


777770 


LAW 


"10 


00214 


043122 


DAC 


SIXT4 


00215 


143123 


OfM 


NOP«NT 


00216 


201623 RTNl LAC 


CCTAO-l 


00217 


041S79 


DAC 


LOCAT** 


00220 


707768 


EPA 




00221 


101571 


JMS 


LOCAT 


00222 


142621 


DIM 


PHDR 


00223 


20S193 


LAO 


LASTl 


00224 


943192 


SAO 


rjRSTl 


0022f 


741000 


SKP 




00226 


600231 


JMP 


• *9 


00227 


943129 


SAD 


INSFLO 


00230 


600202 


JMP 


BCeiN*? 


00231 


202677 


LAC 


ERTBL 


00232 


043291 


DAC 


ERWRO 


00233 


777740 


LAM 


-40 


00234 


043147 


DAC 


CT16 


00239 


760000 


LAW 




00236 


063291 


DAC« 


enwRD 


00237 


443291 


III 


IRHRD 


00240 


443147 


ISI 


CT16 


00241 


600236 

/ 
043126 


JMP 


.-3 


00242 


DAC 


LAST 


00243 


10B693 


JMS 


WHC^E 


00244 


043129 


DAC 


INS^LD 


00249 


202677 


LAC 


rRTBL 


00246 


043291 


DAC 


ERWND 



/ENTER PDP"15 MODE 
/CLEAR PROGRAM FLAGS 

/SEE WHERE PROGRAM IS 
/SAVE FIELD NO, 
/SETUP TEST LIMITS 
/SETUP ACS 

/MASK For bit SUPPRESSION 

/COUNT FOR TOTAL ERRORS 

/PASS COUNTER 



/TILL WHERE PROGRAM IS 

/FIRST FIELD TO TEST 
/L*ST To TEST 



/INSFLD » FIELD WITH PROGRAM 
/ERROR TABLE POINTER 

/L*W ■ NO ERROR IN TABLE 

/NO ERROR IN LAST 

/ERROR Table pointer 



.EJECT 



PASE 



MXCH15 



MXCH15 



00247 


750004 


00250 


503244 


00251 


043127 


00252 


503212 


00263 


744200 


00254 


602312 


00255 


750004 


00256 


503211 


00257 


740200 


00260 


601041 


00261 


750004 


00262 


503210 


00263 


740200 


00264 


101413 


00265 


203127 


00266 


903241 


00267 


741200 


00270 


600323 



/RETURN TO STOVER A^TER ANY ACS CHANGES 
/WHItC RUNNING 



STOVER 



LAS 




AND 


K177 


DAC 


MCWA 


AND 


K40 


SZAICLL 




JMP 


rcoMv 


L*S 




ANO 


K20 


SIA 




JMP 


KVBHD 


LAS 




ANO 


K10 


SIA 




JMS 


SUPBIT 


LAC 


MCWA 


ANO 


K74K 


SNA 




JMP 


DOAUL 



/READ TEST PARAMETERS 



/BIT 12 A 1 
/RELOCATE 



FORCE RELOCATE 



/BIT 13 A I = KEYBOARD INPUT 

/WAIT For input 



/BIT 14 A 1 » BIT SUPPRESSION 

/PARAMETERS 
/MASK BITS 3 TO 6 
/ALL n Do ALL TESTS 



.EJECT 



PAGE 



MXCH15 



MXCHl! 







/EXAMINE TEST 


SWITCHES 3 TO 6 




00271 


203127 


EXTST 


LAC 


MCWA 




00872 


503237 




AND 


K40K 




00273 


740200 




SZA 




/BJT 3 A I » TEST 1 


00274 


600327 




JHP 


TSTl 




00279 


203236 


eXAM2 


LAC 


K2aK 




00276 


903127 




AND 


MCWA 




00277 


740200 




SIA 




/BIT 4 A I « TEST 2 


00300 


600340 




JMP 


T8T2 




00301 


203234 


CXAM3 


LAC 


K10K 




00302 


903127 




AND 


MCWA 




00303 


740200 




SIA 




/BIT 5 A 1 • TEST 3 


00304 


600391 




JMP 


TST3 




00309 


203231 


CXAM4 


LAC 


K«K 




0030A 


903127 




AND 


MCWA 




00307 


740200 




SIA 




/BIT 6 A I ■ TEST 4 


00310 


600362 




JMP 


T8T5 




00311 


443122 




ISI 


S1XT4 


/64 PASSES IF SKIP 


00312 


600316 




JMP 


.♦« 




00313 


143123 




DIM 


NOP«NT 


/CLEAR NO PRINT FLAG 


00314 


777770 




LAW 


-10 


/RESTORE COUNT 


00319 


043122 




OAC 


8IXT4 




0031A 


790004 




LAS 






00317 


903230 




AND 


K400 




00320 


740200 




8!A 




/BIT 9 A 1 • DON'T MOVE 


00321 


600216 




JMP 


RTNl 




00322 


602130 




JMP 


CMOVE 


/DONE All TESTS, SETUP 
/FOR RELOCATION 






/■KTUF 


TO RUN 


ALL TESTS 




00323 


203127 


OOALL 


LAC 


MCWA 




00324 


243241 




XOR 


K74K 


/SET ALL TEST BITS 


00329 


043127 




OAC 


MCWA 


/RESTORE 


0032« 


600327 




JMP 


TSTl 


/TEST i 






/TI8T 1 


I. WRITE CHECKER PATTERN 


#1 


00327 


203132 


T8T1 


LAC 


PCWA 


/TEST 1 PAT, CONTROL WO 


00330 


043130 




OAC 


PCW 




00331 


043131 




OAC 


cntrl 




00332 


760261 




LAW 


261 


/ASCII 1 


00333 


043141 




OAC 


TNUM 


/TEST NUMBER 


00334 


100366 




JMS 


netwk 


/GO WRITE IN ALL FIELDS 


00339 


100377 




JMS 


CRIAO 


/NOW GO READ AND TEST 


00336 


600279 




JMP 


EXAM2 


/SEE IF TEST 2 WANTED 


00337 


600334 




JMP 


.-3 


/OO COMPLEMENT 



.EJECT 



PACE 



MXCHIS 



MXCH15 



00340 
00341 
00342 
00343 
00344 
0034S 
00346 
00347 
00350 



00351 
00352 
00353 
00354 
00355 
00356 
00357 
00360 
00361 



00362 
00363 
00364 
00365 



00366 
00367 
00370 
00371 
00372 
00373 
00374 
00375 
00376 



00377 
00400 
00401 
00402 
00403 
00404 
00405 
00406 
00407 



203133 
043130 
043131 
760262 
043141 
100366 
100377 
600301 
600345 



203134 

043130 
043131 
760263 
043141 
100366 
100377 
600305 
600356 



760264 

043141 
100525 
600311 



000000 
100610 
100617 
741000 
620366 
100430 
100643 
600370 
620366 



000000 
100435 
777774 
243130 
B43131 
620377 
043131 
440377 
620377 



/TIST 

/ 

T8T2 



2i WRJTC CHECKER PATTERN #2 



LAC 
DAC 
OAC 
LAW 
DAC 
JMS 
JMS 
JMP 
JMP 



PCWB 
PCW 

cntrl 

262 

TNUM 
NETWK 
CREAD 
EXAM3 
• ■3 



/TEST 
/ 

TST3 



/TtST 2 PAT, CONTROU WORD 



/ASCII 2 

/TEST NUMBER 

/WHITE IN ALL FIELDS 

/REAO And test each field 

/StE IF TEST 3 WANTED 
/DO COMPLEMENT 



3i WRITE CHECKER PATTERN US, 



/ 

/TIST 

/ 

TST4 



LAC 
DAC 
DAC 
LAW 
DAC 
JMS 
JMS 
JMP 
JMP 



PCWC 
PCW 

cntrl 

TNUM 

NITWk 

CRIAD 

EXAM4 

.-3 



/TEST 3 PAT, CONTROL WORD 



/ASCI! 3 

/TIST NUMBER 

/WRITE IN ALL FIELDS 

/READ AND TEST EACH FIELD 

/SEE IF TEST 4 SELECTED 

/DO COMPLEMENT 



4, TIST ALL XT COORDINATES 



LAW 
OAC 
JMS 
JMP 



264 

TNUM 

BURST 

EXAM4*4 



/ASCII 4 

/TIST Number 

/WRITE IN ALL FIELDS 
/PREPARE TO RELOCATE 



/ 

/ROUTINE TO SETUP AODRCSsCS FOR WRITE LOOP 

/ 

NETWK 





JMS 

JMS 

SKP 

JMP* 

JMS 

JMS 

JMP 

JMP* 



SETUl 
CBANK 

NETWK 

WRITE 

NXTBNK 

NETWK*2 

NCTWk 



/SETUP 1ST riELD TO TEST 

/StE IF iT HAS PR06RAM 

/NO 

/EXIT 

/ACTUALLY WRITE ONE FIELD 

/SETUP FOR NEXT FIELD 

/SEE IF iT HAS PROGRAM 

/WROTE ALU. EXIT 



/ 

/ROUTINE TO SETUP ADDRESSES FOR READ LOOP 
/ 

cread 





JMS 

LAW 

XOR 

SAD 

JMP* 

DAC 

IS8 

JMP* 

•EJECT 



READ 

-4 

PCW 

CNTRL 

CREAD 

CNTRL 

CREAD 

CREAD 



/ACTUALLY READ AND TEST 1 FIELD 

/AP"COMPlEmEnT OF PCW 

/ALL DONE IF EQUAL 

/EXIT 

/CNTRL»COMPLEMENT PATTERN 

/RETURN*! 

/EXIT AND WRITE COMPLEMENT 



PAQC 



MXCHli 



MXCHIS 



/PATTlUN ROUTINE fQH TESTS 1 THRU •? 
/ 



00410 


000000 


00411 


203131 


00412 


043140 


00413 


T77700 


00414 


043191 


0041S 


203140 


00416 


043135 


00417 


777760 


00420 


043147 


00421 


203139 


00422 


744010 


00423 


043135 


00424 


751400 


0042S 


740001 


00426 


043156 


00427 


620410 


00430 


000000 


00431 


100410 


00432 


050000 


00433 


100472 


00434 


620430 



GCNPAT 



WCNT 



OOMPL 



LAC 


cntrl 


DAC 


PATN 


LAW 


-100 


DAC 


CT04 


LAC 


PATN 


OAC 


PAT« 


UAW 


-10 


DAC 


CT1« 


LAC 


PATH 


RCL 




DAC 


PATR 


SiLICLA 




CMA 




DAC 


GOQOl 


JHP* 


OENPAT 



/CURRENT Pattern comtrol word 

/S*VE 

/COUNTS Y AXIS 
/CONTROL WORD 
/SAVE 

/COUNTS i6 SHIFTS 



/NO SKIP Says write 777777 

/AC ■ 7777 

/SAVE 

/EXIT To READ OR WRITE 



/WPITI ROUTINI rOR TESTS 1 THRU 3 

/ 

WRITE 



JMS 


SCNPAT 


/GET A WORD 


DAC 


K 


/WRITE 


JMS 


CKXT 


/CHECK FOR PATTERN INVERSION 


JMP» 


WRITE 


/DONE 4K 


.EJECT 







PACE B 



MXCH15 



MXCH15 



00439 


000000 


00436 


100610 


00437 


100617 


00440 


741000 


00441 


620435 


00442 


100410 


00443 


203209 


00444 


043142 


00449 


203142 


00446 


290000 


00447 


090000 


00450 


203142 


00451 


250000 


00492 


090000 


00493 


210000 


00494 


949196 


00455 


741000 


00456 


600467 


00457 


203142 


00460 


744010 


00461 


740400 


00462 


600444 


00463 


100472 


00464 


100643 


00469 


600437 


00466 


620439 


00467 


043154 


00470 


100673 


00471 


600469 



/RIAD AND TEST 



ROUTINE For tests 1 THRU 3 



READ 



RCOM 



CKAL 



ERIET 





JMS 

JMS 

SKP 

jMPn 

JMS 

LAC 

DAC 

LAC 

XOR 

DAC 

LAC 

XOR 

OAC 

LAC 

SAD 

SKP 

JMP 

LAC 

RCL 

SNL 

JMP 

JMS 

JMS 

JMP 

JMP# 

DAC 

JMS 

JMP 



SETUl 
CBANK 

READ 

GENPAT 

Kl 

BITCON 

BJTCON 

X 

X 

BITCON 

X 

X 

X 

GOOQl 

ERSeT 
BITCON 



RCOM-1 
CKXT 

nxtbnk 

RCAO*; 

RCAO 

BAOi 

ERROR 

CKAL 



/SETUP ro« FIRST FIELD 

/SEE IF iT HAS PROGRAM 

/NO 

/NO MORE CORE TO READ 

/GET A WORD 

/USED For BIT INVERSION 

/COMPLEMENT A BIT 
/WRITE 

/Rt-COMPLEMENT 

/Rfc-WRITE 

/RCAO 

/COMPARE 

/OK 

/PRINT INFO 

/SETUP FOR NEXT BIT 
/DONE 18 IF LINK » 1 
/DO NEXT BIT POSITION 
/CHECK FOR PATTERN INVERSION 
/SETUP FOR NEXT FIELD 
/READ NEXT FIELD 
/WRITE NEXT PATTERN 

/PRINT INFO 



.EJECT 



PAGE 



MXCH15 



MXCH15 







/ROUTINE TO CHECK TOR PATTERN 


00*72 


000000 


CKXY 







00473 


443146 




IS2 


CT4K 


00474 


741000 




SKP 




00475 


620472 




JMP« 


CKXY 


00476 


443151 




isa 


CT0« 


00477 


741000 




SKP 




00500 


600507 




JMP 


Y64 


00901 


724000 




PXA 




00902 


343214 


N64 


TAD 


K10lfl 


00903 


721000 




PAX 




00904 


443147 




ISl 


CTl* 


00909 


600421 




JMP 


WCNT*2 


00906 


600419 


/ 
Y64 


JMP 


WCNT-2 


00907 


737001 


AXR*1 




00910 


777700 




LAW 


-100 


00911 


043151 




OAC 


CT0? 


00912 


724000 




PXA 




00913 


503213 




AND 


K77 


00914 


543212 




SAD 


K40 


00919 


600521 




JMP 


.♦« 


00916 


724000 




PXA 




00917 


343312 




TAD 


(7710000 


00920 


600502 




JMP 


N64' 


00921 


203140 




LAC 


PATN 


00522 


740001 




CMA 




00923 


043140 




DAC 


PATN 


00524 


600516 




JMP 


.-« 



INVERSION 

/DONE 4k if skip 

/EXJT TO W8ITE OR READ 
/DONE WITH Y AXIS IF SKP 

/DONE 64 Y LINES 

/INCREMENT Y ADDRESS BY 1 

/CHECK F0« 16 LOCATIONS 
/NOT YET 
/RfSTOPE COUNT 

/INCREMENT X LINE BY I 
/RISTORE Y LINE COUNTER 

/COMPLEMENT PATTERN IF EQUAL 



/START WiTm new X-Y COMBO 
/PATTERN CONTROL WORD 

/COMPLEMENTED CONTROL WORD 



.EJECT 



PAGE IS 



MXCH19 



MXCHiS 



00525 


000000 


00S26 


100610 


00527 


100617 


00930 


741000 


00531 


600941 


00532 


777777 


00533 


073204 


00534 


443204 


00935 


443146 


00936 


600932 


00537 


100643 


aZ9ASI 


600527 


00541 


100610 


00942 


100617 


00943 


741000 


00944 


620529 


00949 


203204 


00946 


343214 


00947 


043139 


00550 


203139 


00951 


043146 


00952 


776000 


00593 


04314? 


00954 


173204 


00955 


233204 


00956 


443147 


00957 


600959 


00960 


777777 


00S61 


273146 


00562 


741200 


00563 


600571 


00564 


740001 


00965 


043154 


00566 


200960 


00967 


043196 


00970 


100673 


00971 


203214 


00572 


343146 


00573 


043146 


00574 


503232 


00579 


740200 


00976 


600560 


00577 


443204 


00600 


443139 


00601 


203213 


00602 


903204 


00603 


740200 


00604 


600590 


00605 


100643 


00606 


600942 


00607 


620525 



/TEST 
/ 

BURST 



WONS 



4 WRITE AND READ ROUTINE 



DOXY 



BRSTA 



BUST 



CCNO 





JMS 

JMS 

SKP 

JMP 

LAW 

DAC# 

ISi 

ISZ 

JMP 

JMI 

JMP 

JMS 

JMS 

SKP 

JMP« 

LAC 

TAD 

OAC 

LAC 

DAC 

LAW 

OAC 

OZM» 

LAC« 

ise 

JMP 

LAW 

XOR» 

SNA 

JMP 

CMA 

OAC 

LAC 

DAC 

JMS 

LAC 

TAD 

DAC 

AND 

SZA 

JMP 

ISH 

ISZ 

LAC 

AND 

SZA 

JMP 

JMS 

JMP 

JMP* 

.EJECT 



SETUl 
CBANK 

DOXY 

-1 

MEMADR,X 

MEMAOR 

CT4K 

WONS 

nxtbnk 

BUBST*8 

SETUl 

CBANK 

BURST 

MEMAOR 

K100 

PATH 

PATR 

CT4K 

-2000 

CT16 

MEMADRiX 

MiMAORiX 

CTl§ 

-1 

CT4K,X 

CENO 

BAOi 

BUST 

GOQOl 

ERROR 

K100 

CT4K 

CT4K 

K77B0 

BUST 

memadr 

PATR 
K77 

MEMADR 

BRSTA 
NXTBNK 
DOXY*! 
BUR!)T 



/SETUP FOR riRST FIELD 

/SEE IF IT HAS PROGRAM 

/NO 

/RtAD Xy COORDINATES 

/WHITE I'S INTO ALL FIELDS 

/ADDRESS*! 

/DONE 4k WHEN SKIP 

/SETUP FOR NEXT FIELD 

/SETUP FOR FIRST FIELD 

/SEE ir IT HAS PROGRAM 

/NO 

/EXIT 

/ADDRESS OF FIELD X 

/ADD Y LINE 01 TO IT 

/SAVE 

/Y LINE ADDRESS 
/-1024 DECIMAL 

/Ct-EAR LINE XN 

/REAO 000000 512 TIMES TQ 

/TRY TO SWITCH OTHER LINES 



/LINE Y ♦ X MUST » 777777 

/SHOULD NOT SKIP 

/OK 

/SAVE Bad data 
/SAVE Good data 

/PRINT INFO 

/Y AXIS PLUS 1 

/MASK Y ADDRESS 
/ALL DONE IF SKIP 

/READ Next y on current x 

/INCREMENT X ADDRESS 
/INCREMENT X*Y ADDRESS 



/DONE 64 X LINES IF 

/TEST New X WITH Y01 TO Y63, 

/SETUP FOR NEXT FIELD 

/EXIT 



PA6E XX 



MXCH15 



MXCH15 



00610 


000000 


00611 


203152 


00612 


721000 


00613 


043143 


00614 


770000 


00619 


043146 


00616 


620610 


00617 


000000 


00620 


100653 


00621 


722000 


00622 


543143 


00623 


600644 


00624 


740031 


00625 


343143 


00626 


721000 


00627 


730000 


00630 


043204 


00631 


620617 


00632 


440617 


00633 


620617 


00634 


203143 


00639 


343234 


00636 


043143 


00637 


721000 


00640 


770000 


00641 


043146 


00642 


600620 


00643 


000000 


00644 


750004 


00649 


741100 


00646 


100660 


00647 


203143 


00650 


543153 


00651 


600632 


00692 


600634 


00653 


000000 


00654 


200653 


00655 


503240 


00656 


243201 


00657 


620653 



/SETUP FOR FIRST 4K FIELD 

/ 

SETUl 





LAC 


FlRSTl 


/FIRST TO TEST 


PAX 




/APDRESs COUNTER 


OAC 


SVAOR 




LAW 


-10U00 




DAC 


CT4K 


/4K COUNTER 


JMP« 


SETUl 


/EXIT 



/ROUTINE TO SEE IP TESTED FIELD HAS PROGRAM 

/ 

CBANK 



NOMOR 



JMS 


WHEKE 


PAL 




SAD 


SVAOR 


JMP 


NXTBNK#1 


CMAIIAC 




TAD 


SVAOR 


PAX 




PLA 




DAC 


MEMAOR 


JMP* 


CBANK 


iSi 


CSANK 


JMP» 


CBANK 


LAC 


SVADR 


TAD 


K10K 


DAC 


SVAOR 


PAX 




LAW 


-10000 


OAC 


CT4K 


JMP 


C8ANK*1 



/CURRENT PROGRAM FIELD 

/NEXT To TEST 

/SEE IF CURRENT IS LAST 



/EXIT 
/RETURN ♦! 



/CURRENT *4K 

/NEW FIELD 

/-4K 

/4K COUNTER 

/EXIT AND TEST NEW FIELD 



/ROUTINE TO CHRCK FOR LAgT FIELD 
/ 

nxtbnk 



LAS 
SPA 
JMS 




/CHECK ACSa 


FOR 


HALT 


HALT 


/GO 


HALT 






•■^S 


SVAOR 










SAO 


LASTl 


/ALL 


DONE IF 


EQUAL 


JMP 


NOMOR 










JMP 


N0M0R*2 











/ROUTINE TO DETERMINE WHERE PROGRAM IS 

/ 

WHERE /CONTAINS EPC 

LAC ,-1 

ANO K70K /CLEAR ALL BUT BITS 3,4,5 

XOR PINX 

JMP* WHERE /EXIT 

/ 

.EJECT 



PAGE 12 



MXCH15 



MXCH15 







/HALT 


ROUTINE 


:, PRESS 






/TESTING, OR 


ir ACS CM 






/NCW PARAMETERS, 


00660 


000000 


HALT 







00661 


740040 




HLT 




00662 


750004 




LAS 




00663 


740010 




RAL 




00664 


741100 




SPA 




00669 


620660 




JMP« 


HALT 


00666 


740020 




RAR 




00667 


503244 




AND 


K17? 


00670 


543127 




SAD 


MCWA 


00671 


620660 




JMP« 


HALT 


00672 


600247 


y 


JMP 


STOVER 






/ERROR PRINT. 


iOUT ROUTI 






/HALT 

/ 

ERROR 


AFTER PRINT-OUT, 


00673 


000000 







00674 


724000 




PXA 




00679 


803233 




AND 


K7777 


00676 


249143 




XOR 


SVAOR 


00677 


043159 




DAC 


OCADR 


00700 


203251 




LAC 


ERWRD 


00701 


542700 




SAO 


ENEHR 


00702 


741000 




SKP 




00703 


600707 




JMP 


,*i 


00704 


202677 




LAC 


ERT8L 


00709 


043291 




DAC 


ERWRO 


00706 


600716 




JMP 


SW2 


00707 


203159 




LAC 


OCAOR 


00710 


503249 




AND 


K370K 


00711 


943126 




SAO 


LAST 


00712 


600716 




JMP 


,*4 


00713 


043124 




DAG 


LAST 


00714 


063251 




DAC« 


ERWRD 


00719 


443251 


* 


in 


ERWRO 


00716 


760000 


SW8 


LAW 




00717 


543123 




SAD 


NOPRNT 


00720 


620673 




JMP* 


ERROR 


00721 


750004 




LAS 




00722 


742010 




RTL 




00723 


740100 




SMA 




00724 


600730 




JMP 


SWl 


00729 


760207 




LAW 


207 


00726 


102032 




JMS 


PCHAR 


00727 


600736 




JMP 


SW0 


00730 


750004 


SWl 


LAS 




00731 


740010 




RAL 




00732 


740100 




SMA 




00733 


600742 




JMP 


DOERR 


00734 


100660 




JMS 


HALT 


00735 


600742 




JMP 


OOEf^R 



PRESS CONTINUE TO HESJMe 



/PNESS CONTINUE 



/RESUME WHERE LEFT OFF 
/EXECUTE NEW PARAMETERS 

'-. PLACE ACS0 UP FOR 
PRESS CONTINUE TO CO ON, 



/SAVE Bad DATA 



/SAVE Failing address 

/ERROR TABLE POINTER 
/LAST ADDRESS OF TABLE 



/FIRST ADDRESS OF TABLE 

/PUT POINTER TO TOP OF TABLE 

/CHECK AC2 FOR BELL 

/FAILING ADDRESS 

/MASK 3, 4 AND 5 

/NEW ERROR FIELD IF SK|P 

/SAME Field as last error 

/STORE FIELD* IN TABLE 
/INCREMENT POINTER 

/PRINT INHIBIT IF w LAW 

/DON'T PRINT 



/BELL IF SKIP 

/CHECK ACS 1 

/ASCII BELL 

/PRINT 

/CHECK ACS FOR HALT 



/NO SKIP = PRINT INFO 

/PRINT 

/HALT 

/PRINT inFo 



PAGE 13 



MXCH19 



MXCH15 



00736 


750004 


00737 


741100 


00740 


100660 


00741 


620673 



SW0 



UAS 




SPA 




JM9 


HALT 


JMP» 


ERROR 



/NO skip = HALT 
/RETURN TO READ ROUTINE 



.EJECT 



PAGE 14 


MXCH15 


MXCH15 












/SETUP 

/ 

DOERR 


TO PRINT 


ERROR 




00742 


203154 


lAC 


BADl 


/BAD DATA 


00743 


741200 




SNA 






00744 


600757 




JMP 


STEH-6 


/FULL WORD ERROR 


00745 


740001 




CMA 






00746 


741200 




SNA 






00747 


600757 




JMP 


STEK-6 


/FULL Word error 


00750 


740001 




CMA 






00751 


503173 




AND 


BJTSUP 


/MASK SUPPRESSED BITS 


00752 


740200 




SZA 






00753 


740001 




CMA 






00754 


503173 




AND 


BITSUP 




00755 


741200 




SNA 




/NEW ERROR JF SKIP 


00756 


620673 




JMP« 


ERROR 


/ERROR IS SUPPRESSED 


00757 


202621 




LAC 


PHOR 




00760 


741200 




SNA 




/PRINT HEADER IF 


00761 


108621 




JMS 


PHOR 




00762 


203141 




LAC 


TNUM 


/ASCII TEST NUMBER 


00763 


102032 




JMS 


PCHAR 


/PRINT TEST NO, 


00764 


777767 




LAW 


-11 


/-» 


00765 


043145 


STIR 


DAC 


CT32 


/USED FOR SPACING COUNT 


00766 


102104 




JMS 


SPING 


/SPACE 9 


00767 


203155 




LAC 


OCADR 


/OCTAL ADDRESS 


00770 


048075 




DAC 


CRLf' 


/SAVE TEMPORARILY 


00771 


102118 




JMS 


PROCTL 


/PRINT FAILING ADDRESS 


00772 


777772 




LAW 


.6 




00773 


043145 




DAC 


CT3ii 




00774 


102104 




JMS 


SPING 


/SPACE 7 


00775 


203156 




LAC 


GOQUl 


/WHAT Data should be 


00776 


042075 




OAC 


CRLf" 




00777 


102112 




JMS 


PRQCTL 


/PRINT the good 


01000 


777776 




LAW 


-2 




01001 


043145 




DAC 


CT38 




01002 


102104 




JMS 


SPING 


/SPACE 5 


01003 


203154 




LAC 


BADl 


/DATA Read 


01004 


042075 




DAC 


CRL^ 


/SAVE 


01005 


102112 




JMS 


PROCTL 


/PRINT THE BAD 


01006 


760264 




LAW 


264 




01007 


543141 




SAO 


TNyM 




01010 


601017 




JMP 


IN0Y*4 





.EJECT 



PAGE 15 


MXCHl 


010il 


777773 


01012 


043145 


01013 


102104 


01014 


203131 


01015 


042075 


01016 


102112 


01017 


102075 


01020 


443290 


01021 


600736 


01022 


777700 


01023 


043250 


01024 


760000 


01025 


043123 


0102« 


202701 


01027 


043197 


01030 


102037 


01031 


102075 


01032 


777766 


01033 


043145 


01034 


760212 


01039 


102032 


01036 


443149 


01037 


601034 


01040 


600736 



MXCH15 



IN0Y 



LAW 


-9 


DAC 


CT3i; 


JMS 


SPING 


LAC 


cntrl 


DAC 


CRLf" 


JMS 


PROCTL 


JMS 


CRLt 


ise 


MAXERR 


JMP 


SW0 


LAW 


-100 


DAC 


MAXERR 


LAW 




OAC 


nopRnt 


LAC 


PTO 


OAC 


PRNT 


JMS 


PNXt 


JMS 


CRLf 


LAW 


.12 


OAC 


CT32 


LAW 


212 


JMS 


PCHAR 


ISZ 


CT32 


JMP 


.-9 


JMP 


SW0 



/SPACE 5 

/CURRENT Control word 

/SAVE 

/PRiNT PATTERN CONTROL l^ORD 

/CH. Lf 

/CHECK FOR MAX, PRiNT-OUTS 

/CHECK ACS 

/-*4 DECIMAL 



/NO MORE ERROR PRINT-OUTS 
/UNTIL RESTART FROM 100 



/PRiNT-OUTS INHIBITED 

/cR.Lr 

/-10 DECIMAL 



/LP 

/l" LINE FEEDS 



.EJECT 



PAGE 16 MXCH15 MXCH15 

/ 

/KEYBOARD INPUT ROUTINES 
f 
01041 735000 KYBRO CLX 

/ 

/TYPE TEST* AND WAIT FOR INPuT. CARRIAGE 

/RETURN ONLY MEANS USE LAST PATTERN WRITTEN 

/ 

TSTNO LAC TSNX /POINTER FOR TtSTS 

/CR, Lf 

/P^<INT TeST# 

/WAIT FOR INPUT 

/START OvER if A RUB-OUT 

/CHECK FOR C.Ri 

/USE LAST PATTERN WRITTEN 

/-I ASCII 

/MINUS s INPUT <1 

/PHINT QUERY ANO RESTART 

/TEST# IN ASCI! 

/SUBTRACT ASCII 4 
/MINUS = TeST# >4 

/PRINT QUERY AND RESTART 



01042 


202656 


01043 


043157 


01044 


102075 


01045 


102037 


01046 


101547 


01047 


543227 


01050 


601041 


01051 


543217 


01052 


101074 


01053 


777517 


01054 


343145 


01055 


740100 


01056 


601061 


01057 


102612 


01060 


601042 


01061 


203145 


01062 


740001 


01063 


343205 


01064 


343222 


01065 


740100 


01066 


601071 


01067 


102612 


01070 


601042 


01071 


760000 


01072 


243145 


01073 


043141 



TSTN 



LAC 


TSNX 


DAC 


PRNT 


JMS 


CRLf 


JMS 


PNXT 


JMS 


KEY IN 


SAD 


K377 


JMP 


KYBRO 


SAD 


K215 


JMS 


ADRi 


LAW 


-261 


TAD 


CT32 


SMA 




JMP 


.*3 


JMS 


WOTIS 


JMP 


TSTNO 


LAC 


CT32 


CMA 




TAD 


Kl 


TAD 


K264 


SMA 




JMP 


.*3 


JMS 


WOTIS 


JMP 


TSTNO 


LAW 




XOR 


CT3i; 


OAC 


TNUM 



/NEW TEST NUMBER 



.EJECT 



PAGE 17 



MXCHIH 



MXCH15 







/XCHlS - TAPE 2 








/WAIT rOR PIRST 


6 OICIT 


01074 


202703 


ADRl LAC 


ROTB 


01075 


042702 


OAC 


ROTA 


01076 


222702 


LAC« 


ROT* 


01077 


043165 


OAC 


NROIA 


01100 


760000 


LAW 




01101 


043163 


OAC 


ADRA 


01102 


143160 


OEM 


AORCM 


01103 


102075 


JMS 


CRLF 


01104 


202657 


LAC 


AORX 


01105 


043157 


OAC 


PRNT 


01106 


102037 


JMS 


PNXt 


01107 


202660 


LAC 


AOIR 


01110 


043162 


OAC 


OVER 


01111 


202661 


LAC 


OONi 


01112 


043161 


OAC 


CXI! 


01113 


101547 


FAPR JMS 


KEVIN 


01114 


101556 


JMS 


LEGAL 


0111S 


203145 


LAC 


CT3«! 


01116 


503207 


AND 


K7 


01117 


049145 


OAC 


CT3i? 


01120 


101624 


JMS 


GETAD 


01121 


601113 


JMP 


FAOR 


01122 


203160 


LAC 


AORCW 


01123 


043163 


OAC 


ADRA 


01124 


202703 


OrST LAC 


ROTB 


01123 


542702 


SAO 


ROTA 


01126 


601131 


JMP 


.♦3 


01127 


042702 


OAC 


ROTA 


01130 


601567 


JMP 


QUERY 


01131 


101376 


JMS 


PROG 


01132 


601150 


JMP 


A0R2 


01133 


102075 


JMS 


CRL[ 


01134 


202667 


LAC 


AORIP 


0U35 


043157 


OAC 


PRNT 


01136 


102037 


JMS 


PNXT 


01137 


202671 


LAC 


OVRLP 


01140 


043157 


OAC 


PRNT 


01141 


102037 


JM8 


PNXT 


01142 


760000 


LAM 




01143 


041575 


OAC 


L0CAT*4 


01144 


101571 


JMS 


LOCAT 


01145 


201623 


LAC 


CETAO-l 


01146 


041575 


OAC 


L0CAT*4 


01147 


601074 


JMP 


ADRl 



TO LOOP ON 
/POINTER FOR lAw-XX 

/LEFT Shift counter 



/SAVES PARTIAL ADDRESS 

/CR, Lf 

/POINTER FOR FIRST ADR, 

/PRINT FIRST ADR, 
/CUOlR) * AORl 

/S<DONt) ^ DFST 

/WAIT FOR INPUT 
/SEE ir VALID 
/ASCII INPUT 



/SHIFT LEFT TO FROM ADDRESS 
/GfcT NEXT DIGIT 



/POINTER FOR LAW TABLE 
/NOT EQUAL «« <6 CHARACTERS 
/OiK, 

/pRiNT QUERY AND RESTART 
/NOW SEE IF 1ST ADR. IS 
/IN SAME 4k AS PROGRAM 
/OK 
/CR. LP 



/PRINT "FIRST" 



/PRINT "aOR, is WITHIN PROGRAM" 



/TELL WHERE PROGRAM IS 



/START OVER 



.EJECT 



PACE 18 



MXCHIU 



MXCH15 







/WAIT rOR LAST 

/ 

ADR2 LAW 


6 DIGIT ADDRESS 


or BLOCK 


01150 


760000 






01151 


043164 


DAC 


ADRB 




01152 


143160 


DIM 


ADRCW 




01153 


222702 


LAC* 


ROTA 




01154 


043169 


DAC 


NROTA 


/TIRST COUNT FOR LEFT SHIFT 


01159 


102075 


JHS 


crl! 


/C«, LF 


01156 


202662 


LAC 


ADXH 


/POINTER FOR LAST ADR. 


01157 


043157 


DAC 


PRNT 




01160 


102037 


JMS 


PNXt 


/PRINT LAST AOR, 


01161 


202663 


LAC 


A02R 


/CtA02R) » ADR2 


01162 


043162 


DAC 


OVER 




01163 


202664 


LAC 


DONg 


/C<D0N2> a OLST 


01164 


043161 


OAC 


EXIT 




01165 


101547 


LADR JMS 


KEYIN 


/WAIT For input 


01166 


101556 


JMS 


LEGAL 


/SEE IF VALID 


01167 


203149 


LAC 


CT38 


/ASCII INPUT 


01170 


503207 


AND 


K7 




01171 


043145 


DAC 


CT32 




01172 


101624 


JMS 


GETAD 


/SHIFT LEFT TO FORM ADDRESS 


01173 


601169 


JMP 


LAOR 


/GET NEXT DIGIT 


01174 


203160 


LAC 


ADRCW 




01175 


0*3164 


DAC 


ADRB 




01176 


202703 


DL8T LAC 


ROTH 




01177 


542702 


SAO 


ROTA 


/NOT EQUAL ' <6 CHARACTERS 


01200 


601203 


JMP 


,*3 


/OiK, 


01201 


042702 


DAC 


ROTA 




01202 


601567 


JMP 


QUgRY 


/PRINT QUERY AND RESTART 


01203 


101376 


JMS 


PROG 


/SEE IF LAST ADDRESS IS IN 
/SAME 4k AS PROGRAM 


01204 


601222 


JMP 


STLP 


/OiK, 


01205 


102075 


JMS 


crlp 


/CR. LF 


01206 


202670 


LAC 


A0R2P 




01207 


043157 


DAC 


PRNt 




01210 


102037 


JMS 


PNXt 


/P«INT "LAST" 


01211 


202671 


LAC 


OVRLP 




01212 


043157 


OAC 


PRNT 




01213 


102037 


JMS 


PNXf 


/PRINT "aOR, IS WITHIN PROG 


01214 


760000 


LAM 






01215 


041575 


DAC 


L0CAt*4 




01216 


101571 


JMS 


LOCAT 


/TEiLL WHERE PROGRAM IS 


01217 


201623 


LAC 


CETAD-l 




01220 


041575 


DAC 


LOCAT** 




01221 


601150 


JMP 


A0R8 


/START OVER 



.EJECT 



PA8E 19 



MXCH15 



MXCHIS 







/SETU" ADDRESSES AND 1 


01222 


760000 


STLP LAW 




01223 


543163 


SAD 


AORA 


01224 


741000 


SKP 




01225 


601234 


JMP 


CKLST 


01226 


543164 


SAD 


AQRa 


01227 


600216 


JMP 


RTNl 


01230 


203164 


LAC 


AORB 


01231 


043163 


DAC 


AORA 


01232 


043166 


DAC 


LTST 


01233 


601276 


JMP 
/ 

CKLST SAO 


SIMW 


01234 


543164 


A0R8 


01239 


741000 


SKP 




01236 


601243 


JMP 


CBOTH 


01237 


203163 


LAC 


AQRA 


01240 


043164 


DAC 


ADRB 


01241 


043166 


DAC 


LTST 


01242 


601276 


JMP 
/ 
CBOTH LAC 


SJMU 


01243 


203163 


AORA 


01244 


503240 


AND 


K?0K 


01249 


043145 


OAC 


CT32 


01246 


203164 


LAC 


AORB 


01247 


903240 


AND 


K70K 


01250 


543145 


SAO 


CTI2 


01291 


601254 


JMP 


.♦3 


01292 


102612 


JMS 


WOTIS 


01293 


601074 


JMP 
/ 

LAC 


ADRl 


01254 


203163 


AORA 


01259 


740001 


CMA 




01296 


343209 


TAD 


Kl 


01257 


343164 


TAD 


ADRB 


01260 


740100 


SMA 




01261 


601272 


JMP 


SIMU- 


01262 


203164 


LAC 


AOR^ 


01263 


042075 


DAC 


CRLI^ 


01264 


203163 


LAC 


AORA 


01265 


043164 


OAC 


AORB 


01266 


043166 


DAC 


LTST 


01267 


202075 


LAC 


CRL^ 


01270 


043163 


DAC 


AORA 


01271 


601276 


JMP 


.•5 


01272 


203164 


LAC 


AORB 


01273 


043166 


OAC 


LTST 


01274 


203163 


LAG 


ADRA 


01275 


721000 


PAX 





BEFORE LOOPING, 



/A LAW B NO 1ST ADDRESS 



/A LAW = NO LAST ADDRESS 
/RESTART PROGRAM 

/ONLT One SELECTED 

/(.AST Of Block 



/A LAW « no LAST ADDRESS 

/ONLY 1 ADDRESS WANTED 
/LAST or BLOCK 



/FIRST AOR, 

/MASK BITS 3,4 AND 5 

/SAVE 

/LAST AORi 

/MASK 3,4 AND S 

/BOTH MUST i SAME 4K 

/OK 

/PRINT QUERY 

/START OVER 

/FIRST ADDRESS 

/2'S COMPLEMENT 
/SUBTRACT LAST ADDRESS 
/FIRST IS > LAST IF NEC. 
/L^AVE AS IS 



/FIRST IS NOW LAST 



/L*ST Is NOW FIRST 



.EJECT 



PACE 20 


MXCHIS 


MXCH15 






01276 


760261 


/ 

SIMU 


LAW 


261 


01277 


543141 




SAP 


TNUM 


01300 


601312 




JMP 


SIMl 


01301 


760262 




LAW 


262 


01302 


543141 




SAO 


TNUM 


01303 


601330 




JMP 


SIM2 


01304 


760263 




LAW 


263 


01305 


543141 




SAO 


TNUM 


01306 


601338 




JMP 


SIMJ 


01307 


760264 




LAW 


264 


01310 


543141 




SAO 


TNUM 


01311 


601355 


/ 
SIMl 


JMP 


SIM! 


01312 


203132 


LAC 


PCWA 


01313 


043131 




DAC 


cntrl 


01314 


102075 




JMS 


CPLf 


01315 


203163 




LAC 


AORA 


01316 


503240 




AND 


K70K 


01317 


043203 




DAC 


WORK 


01320 


730000 




PLA 




01321 


740031 




CMAUAC 




01322 


343203 




TAD 


WORK 


01323 


721000 




PAX 




01324 


770000 




LAW 


-101400 


01325 


043146 




DAC 


CT<K 


01326 


100430 




JMS 


WRITE 


01327 


601346 


/ 

SIM2 


JMP 


STSCp 


01330 


203133 


LAC 


PCWS 


01331 


601313 


J 


JMP 


SIMUl 


01332 


203134 


SIM3 


LAC 


PCWC 


01333 


601313 


/ 
SCPl 


JMP 


SIMUl 


01334 


707702 


EEM 




01335 


210000 




LAC 


X 


01336 


740001 




CMA 




01337 


050000 




DAC 


X 


01340 


203203 




LAC 


WORK 


01341 


543166 




SAO 


ltst 


01342 


601346 




JMP 


• *4 


01343 


737001 




Axn^i 




01344 


443203 




ISi 


WORK 


01345 


601334 




JMP 


SCPl 


01346 


203163 


STSCP 


LAC 


ADRA 


01347 


043203 




DAC 


WORK 


01350 


730000 




PLA 




01351 


740031 




CMAIIAC 




01352 


343203 




TAD 


WORK 


01353 


721000 




PAX 




01354 


601334 




JMP 


SCPl 



/TtST I IF EQUAL 



/TE.ST 2 IF EQUAL 



/TtST 3 IF EQUAL 



/TCST 4 IF EQUAL 



/WRITE PATTERN #1 

/W«ITE PATTERN #2 

/PATTERN IKS 

/SYNC 
/RfcAO 

/COMPLEMENT 
/WWITE 

/CHECK FOR END OF BLOCK 

/ADDRESS*! 

/STARTING ADDRESS 



.EJECT 



PACE 21 



MXCHl! 



MXCH15 



/ROUTINE TO SIMULATE TEST «. ALU O^ES 
/ARE WRITTIN INTO ONE «K riELDi ANt) 
/THEN THE AOORISS IS LOOPED, THE 
/X LINE SPECiriED IN THE FIRST ADD" 
/If iCt TO 000000. AND THEN READ. 
/THE LAST ADORi AND ALL BETWEEN, A«E 
/NOT RirERENCED. 
/ 



01359 
0135* 


102079 
203163 


SIM4 


JMS 
LAC 


CRLE 
ADRA 






0135? 


903240 




AND 


K70K 


/MASK FIELD 


NUMBER 


013*0 


043203 




OAC 


WORK 






01361 


730000 




PLA 








01362 


740031 




CHAIIAC 






01363 


343203 




TAO 


WORK 






01364 


721000 




PAX 








01369 


770000 




LAW 


-10000 






01366 


043146 




OAC 


CT4i^ 


/4K COUNTER 


1 


01367 


777777 




LAW 


•1 






01370 


090000 




OAC 


X 


/WRITE Its 




01371 


443146 




191 


CT4K 


/DONE 4k when SKIP 


01372 


601367 




JMP 


,-3 






01373 


163163 




OlMt 


AORA 


/OUEAR X*T 


LINE 


01374 


223163 




LACi 


AORA 


/HANG HERE 


AND READ 


01379 


601374 


/ 

/CHECK 

/ 

PROG 


JMP 


.-1 










WANTED 


AOORCSS AND 


PROGRAM AREA 




01376 


000000 











01377 


100693 




JMS 


WHERE 






01400 


042079 




DAC 


CRLP 


/SAVE 




01401 


760000 




LAW 








01402 


943160 




SAO 


ADRCW 


/NONE If » 


LAW 


01403 


621376 




JMP* 


PROC 






01404 


203160 




LAO 


AORCW 






01409 


503240 




AND 


K70K 






01406 


942079 




SAD 


CRLE 


/C«CRLf> " 


CURRENT 


01407 


741000 




8KP 




/EQUAL 




01410 


621376 




JMP» 


PROG 


/EMT 




01411 


441376 




iSi 


PR06 


/RETURN*! 




01412 


621376 




JMP» 


PROS 


/EXIT 





.EJECT 



PACE 22 



MXCHIS 



MXCHiS 



0i413 
01414 
01419 
01416 
01417 
01420 
01421 
01422 

01423 
01424 
0142S 
0142« 
01427 
01430 
01431 
01492 
01433 

01434 
01439 
0143« 
01437 
01440 
01441 
01442 
01443 
01444 
01449 
01446 
01447 



000000 
143172 
20266S 
043157 
202466 
043162 
102075 
102037 

101947 
94S217 
601472 
943227 
601414 
949220 
601423 
101522 
601967 

741200 
601916 
043167 
101S47 
943220 
601900 
543217 
601504 
543227 
601414 
101522 
601967 



/BIT SUPPRISSION INPUT ROUTINE, 
/CARRUCE RETURN TO RESUME TEST 

/TO SUPPRESS, Type the decimal 

/S|PaRATIN(5 each WitH A COMMA. 
/A C.R, PRESS RUBOUf TO RESTART 
/CASE or TVPINe ERROR, 



TYPE A 
ING ALl BITS 
BIT POSlTlON(S) 
TERMINATE WITH 

THE. LINE IN 



SUPBlT 



/ 

AfiAiN 





DIM 

LAC 

OAC 

LAC 

OAC 

JMS 

JMS 

JMS 
SAO 

JMP 
SAD 
JMP 
SAD 
JMP 
JMS 
JMP 

SNA 
JMP 
OAC 
JMS 
SAD 
JMP 
SAO 
JMP 
SAO 
JMP 
JMS 
JMP 

.EJECT 



sew 

SUPX 
PRNT 

supxa 

OVER 
CRLF 

PNXT 

KEYIN 
K215» 
COT 
K377 

supeiTti 

K254 

AGAIN 

NUMB 

QUERY 



lERO 
TTYW 

KEYlN 

K2f« 

EOM 

K21» 

EOTA 

K377 

SUP8IT*1 

NUMS 

QUERy 



/SUPPRESSION CONTROL. WORD 
/POINTER For SUPPRESSS 

/cisupxa) b supbit*1 
/cr, L^ 

/PRiNT "SUPPPESS" 

/WAIT roiNPUT 
/CHECK FOR C.R, 

/DONE Selecting 

/CHECK FOR RUB-OUT 
/CHECK FOR COMMA 

/w*iT For next bit pos, 

/DETERMINE INPUT NUMBER 
/NOT VALID RESTART 

/CHECK FOR 
/POSITION 

/SAVE Digit 

/W*IT For SECOND DIGIT 
/CHECK FOR COMMA 
/2 DIGIT POSITION 
/CHECK FOR C.R, 
/DONE 

/RUB-OUT IF NO SKIP 
/START OVER 
/DETERMINE NUMBER 
/NOT VALID. RESTART 



PAGE 23 


MXCH19 


MXCH19 








01450 


043170 


/ 


DAC 


TTYX 


/SAVE Number 


01451 


203167 




LAC 


TTYW 


/PREVIOUS DIGIT 


01452 


744010 




RCLl 


RCLi RCL 




01453 


744010 










01454 


744010 










01455 


243170 




XOR 


TTVX 


/COMBINE DIGITS 


01456 


740001 




CMA 




/I' COMPLEMENT 


01457 


043171 




OAC 


TTYY 


/SAVE 


01460 


777777 




LAW 


■I 




01461 


343171 




TAD 


TTYY 


/SUBTRACT 1 


01463 


043171 


ROTOR 


DAC 


TTYY 




01463 


209243 




LAC 


K40i9K 


/4lfl0000 


01464 


744020 




RCR 






01469 


443171 




ISi 


TTYY 


/SHIFT COUNT 


01466 


601464 




JMR 


.-a 




01467 


243172 




XOR 


sew 


/INSERT IN CONTROL WORD 


01470 


043172 




DAC 


sew 




B1471 


601423 




JMP 


AQAIN 


/WAIT For NEXT BIT POSITION 


01472 


203172 


/ 

tOT 


LAC 


sew 


/SELECTION COMPLETED 


01473 


740001 




CMA 






01474 


043173 




DAC 


BIT5UP 




01479 


143172 




DIM 


8CW 




01476 


102079 




JHS 


CRL? 


/CRiLF 


01477 


621413 


/ 

COW 


JMP» 


8UPBIT 


/EXIT 


01900 


203167 


LAC 


TTYW 


/SINGLE DIGIT 


01901 


740001 




CMA 






01902 


343209 




TAD 


Kl 




01903 


601462 




JMP 


ROTOR 




01904 


203167 


COTA 


LAC 


TTYW 


/INPUT DIGIT 


01909 


740001 




CMA 






01S06 


343209 




TAD 


Kl 


/2'S COMPLEMENT 


01907 


043171 




DAC 


TTYY 




01910 


203243 




LAC 


K40BK 


/400000 


01911 


744020 




RCR 






01912 


443171 




iSi 


JTYY 


/SHIFT COUNTER 


01913 


601511 




JMP 


.-8 




01914 


243172 




XOR 


sew 




01919 


601473 


/ 
iCRO 


JMP 


C0T*1 


/EXIT 


01916 


203172 


LAC 


sew 




01917 


243243 




XOR 


K400K 


/4l^0000 


01920 


043172 




DAC 


sew 




01521 


601423 




JMP 


AGAIN 


/WAIT For NEXT 



.EJECT 



PACE 24 


MXCH19 


MXCH15 








01S22 


000000 


/ 

NUHB 









01523 


203145 




LAC 


CT32 


/ASCII INPUT 


01524 


903226 




AND 


K37K1 




01525 


543221 




SAD 


K26^ 




01526 


741000 




SKP 






01527 


601934 




JMP 


.*P 


/CHECK FOR A 270 OR 271 


01530 


441922 




ISi 


NUMB 


/RETURN*! 


01531 


203149 




I.AC 


CT32 




01532 


503207 




AND 


K7 




01533 


621922 




JMP# 


NUMB 


/EXIT 


01934 


943223 




SAO 


K270 


/» 8 OR 9 IF EQUAL 


01535 


741000 




SKP 






01536 


621922 




JMP« 


NUMB 


/INVALID 


01537 


203149 




LAC 


CT3ii 


/ASCII INPUT 


01540 


503209 




AND 


Kl 


/■ A 8 IF BIT 17 « 


01941 


740200 




%U 






01942 


601949 




JMP 


.«3 


/A 9 


01543 


777770 




LAM 


-10 


/SHIFT COUNT OF 8 


01944 


601463 




JMP 


ROTOR 




01949 


777767 




LAW 


-u 


/SHIFT COUNT OF 9 


01946 


601462 


/ 


JMP 


ROTOR 








/ 

/CHARAeTCR INPUT RflUTlNC 

y 




01947 


000000 


KEVIN 









01550 


700312 




KRB 




/INITIALIZE 


01551 


700301 




K8P 




/WAIT FOR INPUT 


01552 


601991 




JMP 


• -1 




01553 


700312 




KRB 




/READ Buffer 


01994 


043145 




DAC 


CT32 


/SAVE 


0195S 


621547 


/ 


JMPt 


KIT IN 








/ 

/CHECK 
/ 
LC6AL 


VALIDITY 


or Input 


CHARACTER 


01956 


000000 









01957 


203145 




LAC 


CT32 


/ASCII INPUT 


01960 


943227 




SAD 


K37^ 


/IS IT A RUBOUT 


01961 


601041 




JMP 


KYi«D 


/START OVER 


01562 


943217 




SAD 


K21? 


/CHECK FOR C.R, 


01963 


623161 




JMP» 


EXIT 


/LINE TERMINATED 


01564 


903226 




AND 


K370 




01969 


943221 




SAD 


K2i0 


/SHOULD EQUAL 260 


01966 


621996 




JMP* 


LE6AL 


/0|K, 


01967 


102612 


OUCRV 


JMS 


WOTIS 


/PRINT QUESTION MARK 


01970 


623162 




JMP» 


OVER 


/START LINE OVER 



•EJECT 



PACE 29 


MXCH19 


MXCH19 














/P«INT 

/ 

LOOAT 


ARCA G0NTAININ6 


PROGRAM 




01971 


000000 











01978 


750004 




LAI 








01973 


503214 




AND 


K100 






01974 


740200 




SiA 








01979 


*21971 




JMP» 


LOCAT 






0197* 


102079 




JM3 


CRL? 




/CR. \J 


01977 


202*72 




LAC 


PI8IN 






01«00 


043197 




DAC 


PRNT 






01601 


102037 




JMS 


PNXt 




/PRJNT "PROGRAM IS IN FIELD" 


01»03 


100693 




JMS 


WHEHE 




/WHERE IS IT 


01*03 


043203 




OAC 


WORK 






01*04 


744010 




RCLt 


RTL» 


RAL 




01t0S 


741010 












01*06 


740010 












01*07 


903207 




ANP 


K7 






01*10 


343221 




TAO 


KIIB 






01*11 


102032 




.JMt 


PCHAR 




/PRINT 1ST HALF FIELD NO, 


01*12 


803203 




LAC 


WORK 






01*13 


744010 




RCLl 


RTL» 


RTLJ 


RTL 


01*14 


743010 












01*19 


742010 












01*14 


743010 












01*17 


903207 




AND 


K7 






01*20 


343221 




TAO 


K2t0 






01*21 


102032 




JMS 


pchAr 




/PRINT 2N0 HALF FIELD NO. 


01*22 


102079 




JMS 


cRir 




/CR. LF 


01*29 


*21971 


/ 


JMP* 


LOCAT 




/EXIT 






/ 

/GINKRATE 4 D16IT AQOHISSlI rROM KEYBOARD INPUT 


01*24 


000000 


eCTAO 











01*29 


707704 




LCM 








01*2* 


222702 




LACt 


ROTA 




/0|T A NEG. law FOR COUNT 


01*27 


0431*9 




DAC 


NROTA 




/SHIFT COUNTER 


01*30 


203149 




LAC 


CT32 




/ASCII INPUT 


01*31 


443169 


ON«OT 


ISI 


NROTA 






01*32 


*01650 




JMP 


SOLlFT 




/ROTATE 1 LEFT 


01*33 


243160 




XOR 


ADRGW 




/APR, CONTROL WORD 


01*34 


043160 




DAC 


adrSw 






01*39 


777777 




LAW 


-I 






01*34 


562702 




SAD* 


ROTA 




/REC'O 6 DIGITS IF EQUAL 


01*37 


«01642 




JMP 


.*3 






01*40 


442702 




lai 


ROTA 




/LAW POINTER * 1 


01*41 


621624 




JMP# 


QETAO 




/EXIT And wait for next 


01*42 


202703 




LAC 


ROTB 




/ESTORE POINTERS 


01*43 


042702 




OAC 


ROTA 






01*44 


222702 




LAC* 


ROTA 






01*49 


043169 




OAC 


NROTA 






01*4* 


441624 




138 


5ETAD 




/RiiTURN*! 


01*47 


«21624 




JMP* 


qetad 




/EXIT 


01*50 


744010 


couerT 


RCL 








01*51 


601631 




JMP 


CNROT 







PACE 26 


MXCH19 


MXCH19 






01652 


777760 


/ 

ROTC 


LAW 


-20 


01653 


777763 




LAW 


-15 


01654 


777766 




LAW 


-Ig 


01655 


777771 




LAW 


-7 


01656 


777774 




LAW 


-4 


01657 


777777 




LAW 


-1 



/ROTATE l5 LEFT FOR 1ST DIGIT 

/12 LEFT FOR 2ND 

/9 LEFT FOR 3RD 

/6 LEFT FOR 4TH 

n LEFT FOR 5TH 

/NONE For 6TH 



.EJECT 



PACE 27 



MXCHll 



MXCH15 



/ROUTINE TO ACCEPT TEST LIMITS FROM KEYBOARD INPUT 
/ 



01660 


000000 


01661 


201623 


01662 


041575 


01663 


102075 


01664 


202673 


01669 


043157 


01666 


102037 


01667 


102079 


01670 


202674 


01671 


043162 


01672 


202675 


01673 


043161 


01674 


101547 


01679 


543227 


01676 


601661 


01677 


101556 


01700 


203149 


01?0l 


503207 


01702 


744020 


01703 


742020 


01704 


740020 


01705 


043192 


01706 


101547 


01707 


543227 


01710 


601661 


017U 


101556 


01712 


203149 


01713 


903207 


01714 


744020 


01715 


742020 


01716 


742020 


01717 


742020 


01720 


243152 


01721 


043192 


01722 


101947 


01723 


943220 


01724 


741000 


01729 


601567 


01726 


101547 


01727 


543227 


01730 


601661 


01731 


101556 


01732 


20S145 


01733 


903207 


01734 


744020 


01735 


742020 


01736 


740020 


01737 


043153 


01740 


101547 


01741 


543227 


01742 


601661 


01743 


101556 



SLMTS 





LAC 

DAC 

JMS 

LAC 

DAC 

JMS 

JMS 

LAC 

DAC 

LAC 

DAC 

JMS 

SAO 

JM^ 

JMS 

LAC 

AND 

RCRl 



DAC 
JMS 
SAD 
JMP 
JMS 
LAC 
AND 
RCRl 



XOR 
DAC 
JMS 
SAD 
SKP 
JMP 
JMS 
SAD 
JMP 
JMS 
LAC 
AND 
RCRl 



DAC 
JMS 
SAO 
JMP 
JMS 



GETAD-1 
L0CAT*4 

CRL[ 
TLMX 
PRNT 
PNXf 

CRLf 

SLMX 

OVER 

DON'S 

CXI! 

KEVIN 

K377 

SLMTS*l 

LC6*L 

CT32 

K7 

RTRI 



RAR 



riRSTl 

KEY IN 
K377 

SLMTS*! 

LCOAL 

CT32 

K7 

RTR» RTRI 



riRSTl 
flRSTl 
KCYIN 
K294 

QUERY 

KIYIN 

K377 

SLMts*l 

LE8AL 

CT32 

K7 

RTRI RAR 



/RESTORE JMP» 

/CR. LF 

/TEST LIMITS POINTER 

/PRINT "TEST LIMITS" 

/CR»LF 

/C (SLMX)=SLMTS*1 

/RETURN aODRESSsCREVR 

/WAIT FOR INPUT OF MEM, NO, 



/SE IF VALID 
/ASCII INPUT 
/MASK 15,16 AND 17 



/WAIT FOR INPUT OF FIELD NO. 



LASTl 

KEVIN 

K377 

SLMTS*! 

LEGAL 



/SEE IF VALID 
/ASCII INPUT 
/MASK 15.16 AND 17 
RTR 



/FIRST FIELD TO TEST IS STORED 
/WAIT For COMMA 



/PRINT QUERY, AND RESTART 
/WAIT For INPUT OF MEM, NO, 



/SEE IF VALID 
/ASCII INPUT 



/WAIT FOR INPUT OF FIEL NO. 



/SEE IF VALID 



PAQC 28 


MXCHl 


01744 


203149 


01745 


503207 


01744 


744020 


01747 


742020 


01750 


742020 


01751 


742020 


01752 


243159 


01753 


043153 


01754 


777777 


01755 


043146 


01756 


443146 


01757 


601967 


01760 


203192 


01761 


740001 


01762 


343209 


01763 


343153 


01764 


740100 


01765 


601774 



MXCH19 



CRCVR 



LAC 


CT32 


AND 


K7 


RCRl 


RTRH 


XOR 


LASTl 


OAC 


LAfTl 


LAW 


•1 


OAC 


CT4K 


ISi 


qT4K 


JMP 


OUCRY 


LAC 


FIRSTl 


CMA 




TAO 


Kl 


TAD 


LASTl 


8HA 




JMP 


OKAS 



/ASCII INPUT 
/MASK 15,16 AND 17 
RTRl RTR 



/L*ST Field to test is stored 



/NO 2ND DIGIT IF NO SKIP 
/PRiNT QUERY AND RESTART 
/FIRST FIELD 

/2'S COMPLEMENT 

/FIRST IS >LAST IF MEG, 

/FIRST IS LOWEST ORDER 



ilJECT 



PACE 29 


MXCH15 


MXCH15 






0176A 


203152 


/ 


LAC 


FjR^n 


01767 


043151 




OAC 


CT04 


01770 


203153 




LAC 


LASfl 


01771 


043152 




OAC 


FlRSTl 


01772 


203151 




LAC 


CT0? 


01773 


043159 




DAC 


LASIt 


01774 


203159 


OKAS 


LAC 


LASTl 


01775 


543152 




SAD 


rjRSTl 


01774 


741000 




SKP 




01777 


602007 




JMP 


ALOK 


ZZMZ 


549125 




SAD 


INSFLO 


02001 


741000 




SKP 




02002 


602007 




JMP 


ALOK 


02003 


760000 




LAW 




02004 


041575 




DAC 


L0CAT*4 


tSZZZi 


101S71 




JMS 


LOCAT 


0200A 


601661 




JMP 


SLMTS*! 


02007 


101547 


AUOK 


JMS 


KIYIN 


02010 


549217 




SAD 


K219 


02011 


621660 




JMP« 


SLMIS 


02012 


601567 


/ 

/ 

9tTAC 


JMP 


OgpRY 






ACS. 1 


IKCSS CAptRIi 


02013 


000000 







02014 


102075 




JMS 


CRL? 


0201S 


202676 




LAC 


SITX 


0201A 


049157 




DAC 


PRNT 


02017 


102037 




JMS 


PNXT 


02020 


700312 




KRB 




02021 


700301 




Ksr 




02022 


602021 




JMP 


.-1 


02023 


700912 




KRB 




02024 


543227 




SAD 


K377 


02025 


601661 




JMP 


SLMts*! 


0202«' 


750004 




LAS 




02027 


043127 




DAC 


MCW* 


02030 


102075 




JMS 


CRL? 


02031 


622019 




JMP* 


SCTAC 



/SAVE 

/LAST IS NOW FIRST 

/FIRST IS NOW LAST 

/SEE IF ONLY 1 SELECTED 
/YES. SEC IF IT HAS PROGRAM 

/REJECT IF EQUAL. 
/TELL WHERE IT IS 



/CHANGE JMP» TO NOP 

/RESTART 

/WAIT FOR A C.R 

/EXIT 

/PRINT OUERY AND RESTART 



/CR.LF 
/POINTER 

/pRiNT "SETUP ACS" 



/CHECK FOR RO 
/RESTART 



/CR.LF 
/EXIT 



.EJECT 



PAGE 30 



MXCH19 



MXCHl! 







/ 

/PRINT 
/ 

/PRINT 
/ 

PCHAR 


ROUTINES 


FOR MESSAGES 








ONE CHARACTER AND EXIT 




02032 


000000 









02033 


700406 




TLS 






02034 


700401 




TSF 






02039 


602034 




JMP 


.•1 




02036 


622032 


/ 

/PRINT 


JMP« 


PCHAR 








A STRJNS 


AND exit; 




02037 


000000 


PNXT 









02040 


777775 




LAW 


-3 




02041 


043149 




OAC 


CT32 


/CHARACTER COUNTER 


02042 


443157 




iSi 


PRN! 


/WORD P0INTER*1 


02043 


223157 




LAC« 


PRNT 




02044 


741200 




SNA 




/ALL DONE IF 


02049 


622037 




JMP* 


PNXT 


/EXIT 


02046 


042079 


MASK 


OAC 


CRLF 


/SAVE Word 


02047 


909213 




AND 


K77 


/MASK 6 BIT CHARACTER 


02090 


943213 




SAO 


K77 


/CHECK IF RUBOUT 


02091 


602062 




JMP 


CK3 




02092 


043142 




DAC 


BITCON 


/SAVE ChaR 


02093 


777740 




LAW 


.40 




02094 


343142 




TAD 


BITCON 




02099 


740100 




SMA 




/ncg, s alpha 


02094 


602072 




JMP 


CRLt-3 


/NUMERIC 


02097 


242093 




XOR 


i>4 




02060 


243224 




XOR 


K30i9 


/MAKE ALPHA 


02061 


102032 




JMS 


PCHAR 


/PRINT ACS 10-17 


02062 


443149 


CK3 


181 


CT32 


/CHECK FOR 3 CHARACTERS 


02063 


741000 




SKP 






02064 


602040 




JMP 


PNXT*l 


/GET NEXT 3 CHARACTERS 


02069 


20207S 




LAC 


CRL? 


/POSITION NEXT 


02066 


742020 




RTR» RTRi RTR 




02067 


742020 










02070 


742020 










02071 


602046 




JMP 


MASK 


/PHINT IT 


02072 


203142 




LAC 


eiTCON 




02073 


343219 




TAD 


K20? 


/MAKE Numeric 


02074 


602061 




JMP 


CK3-1 





.EJECT 



PA^ 51 


MXCH15 


MXCH19 












/CARRUGE RETURNi LlNE FEED 




03079 


000000 


CRir 









02076 


760215 




LAW 


21S 


/ASCII CR 


08077 


102032 




JMS 


PCHAR 




08100 


542102 




SAD 


.*2 




02101 


622075 




JMP« 


CRLI^ 


/EMT 


02102 


760212 




LAW 


212 


f\J 


02103 


602077 


/ 

/PRINT 


JMP 


CRLC*2 








SPACES 






02104 


000000 


8PING 









02109 


760240 




LAW 


240 


/ASCII SPACE 


02106 


102032 




JMS 


PCHAR 




02107 


443149 




iSi 


CT32 


/COUNTER 


02110 


602109 




JMP 


SP{N(i*l 




02111 


622104 


/ 

/PRINT 

/ 

PROCTL 


JMP# 


SPING 


/EXIT 






SIX OieiT OCTAL NUMBERS 




02112 


000000 









02113 


777772 




LAW 


.6 




02114 


043149 




OAC 


CT32 


/DIGIT COUNTER 


02&t9 


202079 




LAC 


CRL^ 


/OCTAL NUMBER 


02116 


744010 


POIITN 


RCLl 


RTL 




0S117 


742010 










02120 


042079 




OAC 


CRLP 




02121 


740010 




RAL 






02122 


903207 




AND 


K7 




02123 


343221 




TAD 


K260 




02124 


102032 




JMS 


PCHAR 


/P«INT 


02129 


443149 




\n 


CT32 




02126 


602119 




JMP 


POSITN-I 


/POSIT 


02127 


622112 




JMP» 


PROCTL 


/EXIT 



.IJECT 



PAOE 32 



MXCH15 



MXCH15 







/XCH19 

A 


- TAPE 


3 






/ROUTINE TO DETERMINE 


02130 


202677 


CMOVE 


LAC 


ERTBl 


02131 


043251 




DAC 


ERWRD 


02132 


203153 




LAC 


LASTl 


02133 


543152 




SAO 


FJRSTl 


02134 


600216 




JMP 


RTNl 


02135 


203124 




LAC 


flaOs 


02136 


741100 




SPA 




02137 


600216 




JMP 


RTNl 


02140 


740020 




RAR 




02141 


741400 




S2L 




02142 


602227 




JMP 


NXTMv 


02143 


443124 




ISI 


rLA(iS 


0Z144 


203153 




LAC 


LAStl 


0214S 


043125 




OAC 


INS^LO 


02146 


770000 




LAW 


-10000 


02147 


343129 




TAO 


insfld 


02150 


043174 




OAC 


NXLOC 


02151 


100653 




JMS 


WHERE 


0S192 


943125 




SAD 


insfld 


02153 


602212 


/ 

/NOW Ci> 


JMP 


SUBl 






lECK roR 


ERROR Rl 


02154 


760000 


CKERR 


LAW 




02155 


563251 




SAD* 


ERWRD 


02156 


602167 




JMP 


STMV 


02157 


223251 




LAC* 


ERWHO 


02160 


54312S 




SAD 


inselo 


02161 


602201 




JMP 


EQUAL 


02162 


443251 




ISI 


ERWRO 


02163 


203251 




LAC 


ERWRD 


02164 


942700 




SAD 


ENERR 


02165 


741000 




SKP 




02166 


602157 


/ 

STMV 


JMP 


CKERR*! 


02167 


202677 


LAC 


ertbl 


02170 


043251 




OAC 


ERWRD 


02171 


203129 




LAC 


iNsao 


02172 


043176 




OAC 


OESTN 


02173 


100653 




JMS 


WHERE 


02174 


043175 




DAC 


SOURCE 


02175 


543176 




SAD 


OEStN 


02176 


600216 




JMP 


RTNl 


02177 


203176 




LAC 


DEStN 


02200 


602346 




JMP 


MOVE 



/UAST To Test 

/DON'T MOVE IF EQUAL 
/RETURN 

/PROGRAM Flags 

/FORCED MOVE MADE IF A 1, 
/DON'T MOVE 
/LINK * slT 17 
/FIRST MOVE IF SKIP 
/SETUP FOR NEXT MOVE 
/SIT FLAG FOR IST MOVE 



/■4K 

/SUBTRACT 4K FROM CURRENT 
/N^LOC « OEST'N FOR NEXT TIMEi 
/WHERE ARE WE NOW 
/ALREADY IN LAST 1 IF EQUAL 
/TRY NEXT LOWER 



/NO ERRORS IF » LAW 
/INITIALIZE MOVE 

/ERROR IN FIELD IF EQUAL 

/POINTER ♦ 1 

/END OF TABLE IF EQUAL 



/RESTORE POINTER 
/NEW FIELD 



/NEW AND CURRENT ARE EQUAL 
/MOVE PROGRAM 



lEJECT 



PACE 33 


MXCH15 


MXCH19 










/ERROR 
/ 

EQUAL 


IN NEW 


riELDi TRY 


02201 


543192 


SAO 


riRSTl 


02202 


602224 




JMR 


ONMVE 


02203 


741200 




SNA 




02204 


602210 




JMP 


.♦4 


02209 


770000 




LAW 


-10000 


02206 


343125 




TAO 


INSFLD 


02207 


043174 




DAG 


NXLOC 


02210 


202677 




LAC 


ERTBL 


02211 


043291 


/ 
SUBI 


OAC 


ERWRO 


02212 


203174 


LAC 


NXLOC 


02213 


943129 




SAO 


IN8FL0 


02214 


602201 




JMP 


EQUAL 


02219 


04312S 




DAC 


INSFLO 


02216 


943192 




SAD 


FlRSTl 


02217 


602194 




JMP 


CKKHR 


02220 


770000 




LAW 


-10000 


02221 


343129 




TAO 


INSFLO 


02222 


043174 




DAC 


NXLOC 


02223 


602194 


I 
ONMVE 


JMP 


CKIRR 


02224 


202677 


LAC 


ERT8L 


02229 


043291 




DAC 


ERWRO 


02226 


600216 




JMP 


RTNl 



NEXT LOWER 

/DON'T TRY NEXT IF EQUAL 

/JS IT FIELD 
/YfcS 

/-'IK 

/SUBTRACT 4K FROM WEW FIELD 

/NEXT NEW FIELD 

/RESTORE PQINiTER 

/NEXT New FIELD 

/IS IT n CURRENT NEW FIELD 

/TRY NEXT LOWER 

/NEW NEW FIELD 

/DOES !T = LOWEST FIELD 

/CHECK FOR ERROR 

/SUBTRACT 4K 

/NEW FIELD FOR NEXT PASS 



/RESTORE POINTER 
/START OVER 



.EJECT 
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MXCHlS 



MXCH15 







/ROUTINE TD DETERMINE ? 


02227 


100653 


NXTMV 


JMS 


WHERE 


02230 


043175 




OAC 


SOURCE 


02231 


760000 


CKNXT 


LAW 




02232 


563251 




SAO* 


ERWHD 


02233 


602246 




JMP 


STNXT 


02234 


202677 




LAC 


ertbl 


02235 


043251 




OAC 


ERWRQ 


0223« 


223251 




LAC* 


ERWKD 


02237 


543174 




SAD 


NXLOC 


02240 


602266 




JMP 


SUS8 


02241 


443251 




ISi 


ERWRD 


02242 


203251 




LAC 


ERWRD 


02243 


542700 




SAD 


ENEHR 


02244 


741000 




SKP 




0224S 


602236 


/ 
STNXT 


JMP 


CKNXT*5 


02246 


202477 


LAC 


ertbl 


02247 


043251 




OAC 


ERWHD 


02250 


203174 




LAC 


NXLOC 


02251 


543125 




SAO 


insplo 


02252 


603255 




JMP 


.^3 


02253 


543152 




SAO 


FIRST! 


02254 


602303 




JMP 


MVBK 


02255 


543152 




SAO 


riRSTl 


02254 


602277 




JMP 


NXTHJ 


02257 


043125 




OAC 


INS?LO 


02260 


770000 




LAW 


-10f00 


02261 


343125 




TAD 


INSFLO 


02262 


043174 




DAC 


NXl5c 


02263 


203129 




LAC 


ini^lo 


02264 


043176 




DAC 


OESTN 


02265 


602346 




JMP 
.EJECT 


MOVE 



DEST'N AFtf.R making ONE MOVE 
/WHERE IS PROGRAM NOW 

/NO ERRORS IF 1ST - LAW 

/GET AN ERROR ADDRESS 

/ERROR IN NEXT FIELD TRY NEXT 

/DONE Table and no errors 



/RESTORE POINTER 

/NEW FIELD 

/DOES It ' CURRENT FIELD 

/DOES It » LOWEST FIELD 

/YES, Clear flags and move 
/DOES The cu rent alsos 

/THE LOWEST FIELD, 

/YES, Setup for highest field 

/NtW CURRENT FIELD 
/-?K 

/NEW NEXT riELO 



/MOVE FROM HERE TO C (OESTN) 



PACE 55 


MXCH15 


MXCH15 






02266 


203174 


SUB2 


LAC 


NXLOC 


02267 


543152 




SAD 


riRSTl 


02270 


602224 




JMP 


DNMVE 


02271 


770000 




LAW 


-10<il00 


02272 


343174 




TAD 


nxloc 


02273 


043174 




OAC 


NXLOC 


02274 


543125 




SAO 


ins^lo 


02275 


602267 




JMP 


SUB2*1 


02276 


602234 


A 


JMP 


CKNXT*3 


02277 


203153 


NXTHl 


LAC 


LAST! 


02300 


503245 




AND 


K37I<IK 


02301 


043174 




OAC 


NXL^C 


02302 


602234 


M 


JMP 


CKNXT*3 


02303 


100653 


MVBK 


JMS 


WHISE 


02304 


043175 




OAC 


source 


0230S 


203174 




LAC 


NXLOC 


02306 


043125 




DAC 


INS^LO 


02307 


043176 




DAC 


OESTN 


02310 


143124 




DIM 


fLAUS 


02311 


602346 




JMP 


move; 



/IS NEXT = flELD 00 OR 1ST TC TEST 

/yesi dom't move 

/-4K 

/NEW NEXT FIELD 

/DOES IT = CURRENT FlELO 

/VES 

/SEE IF eKROR in new field 

/L*ST TO TEST 

/LAST ^ NEXT FIELD 
/CHECK FOR ERROR 



.EJECT 



PkOl 36 



MXCH15 



MXCH15 



02312 
02313 
08314 
02815 

02316 
02317 
02320 
02321 



02322 
02323 
02324 
02325 

02326 
02327 
02330 
02331 
02332 
02333 
02334 
02335 

02336 
02337 

02340 
02341 
02342 

02343 
02344 
02349 



203243 
740001 
903124 
243243 

043124 
202677 
043291 
102459 



760000 
563251 
602346 
223251 
548176 
602339 
443251 
203291 
948700 
602336 
602325 
102433 

202677 
043251 
203176 
543179 
600216 
043129 
503242 
043201 



/ROUTlN 
/riELOi 
/ 

rcDMv 



C TO FORCE MOVE THE PROG 
MUST BE TYPED IN BY THE 



/ 

/CHECK 
/ 

CKrco 



LAC 
CMA 
AND 
XOR 
OAC 
LAC 
DAC 
JMS 



K40i4K 

rLASS 
K400K 
rLAUS 

CRT8L 
CRWRQ 
GOTO 



roR ERROR IN NlW FIELD 



XPRT 
/ 



LAW 

SAD* 

JMR 

LAC* 

SAD 

JMP 

isg 

LAC 
SAD 

JMP 
JMP 
JMS 

LAC 
DAC 
LAC 
SAD 
JMP 
DAC 
AND 
OAC 



ERMRO 

MOVE 

ERWHD 

OESTn 

XPRT 

ERWRD 

ERWRD 

ENIRR 

.♦3 

CKrCD*3 

PR8IL 

ERTBL 
ERWRD 
OESTn 

SOURCE 

RTNi 

IN8FL0 

K300K 

PINX 



RAMI DESTINATION 
OPERATOR (00-37 OCTAL) i 



/SET BIT FOR FCQMV FLAG 



/RESTORE Table pointer 

/PRINT GO TO FIELD 



/NO ERRORS IF 1ST ■ LAW 
/SEE WHERE TO QQ 

/DOES ERROR i NEW FIELD 
/YES, PriMt message 
/POINTER*! 

/SEE IF END OF TABLE 

/DONE And no errors 

/PRINT ERROR IN SELECTED 4K 



•EJECT 



PACE 37 



MXCH19 



MXCH15 







/ROUTINE TO RELOCATE THE 


02346 


142603 


MOVE DZM 


LOCER 


02347 


203176 


LAC 


OESTN 


02350 


503242 


AND 


K30»K 


02351 


043201 


OAC 


PINX 


02352 


770000 


LAM 


-10000 


02353 


043146 


DAC 


CT4K 


02354 


203175 


LAC 


SOU«CC 


02355 


043177 


OAC 


MOVES 


02356 


740031 


CMAUAC 




02557 


343176 


TAD 


OSSTN 


02360 


721000 


PAX 




02361 


143204 


DZM 


MEMAOR 


02362 


223177 


MOiOM LAO# 


MOVSS 


02363 


043141 


DAC 


TNUM 


02364 


102442 


JMS 


RTl^L 


02365 


050000 


OAC 


X 


02366 


210000 


LAC 


X 


02367 


563177 


SAO* 


MOVES 


02370 


741000 


SKP 




02371 


102554 


JMS 


MVEHR 


02372 


443177 


ISi 


MOVES 


02373 


737001 


AXR*l 




02374 


443146 


ISg 


CT4K 


02375 


741000 


SKP 




02376 


602424 


JMP 


DINO 


02377 


203141 


LAC 


TNUM 


02400 


542655 


SAO 


DLMT 


02401 


741000 


SKP 




02402 


602362 


JMP 


M080M 


02403 


223177 


AJIN LAC* 


MOVES 


02404 


542716 


SAO 


OLMTA 


02409 


602363 


JMP 


MOSOMtl 


02406 


503233 


AND 


K7777 


02407 


243176 


XOR 


DESTN 


02410 


10S442 


JMS 


RTIVl 


02411 


050000 


DAC 


X 


02412 


210000 


LAC 


X 


02413 


903233 


AND 


KT777 


02414 


243179 


XOR 


SOURCE 


02419 


563177 


SAO* 


MOVES 


02416 


741000 


SKP 




02417 


102594 


JMS 


Mve«R 


02420 


443177 


ISi 


MOVES 


02421 


737001 


AXR + 1 




02422 


443146 


ISI 


CT4K 


02423 


602403 


JMP 
/ 
OIND JMS 


AJIN 


02424 


102530 


ENOT 


02425 


203175 


LAC 


SOUHCE 


02426 


740031 


CMAIIAC 




02427 


343176 


TAD 


DESTN 


02430 


721000 


PAX 





PROGRAM 



/-<tK 

/4K COUNTER 

/CURRENT FIELD 



/NEW FIELD 
/LOC zero START 
/MOVE FROM CURRENT 
/SAVE 

/PUT IN NEW FIELD 
/READ Back 

/COMPARE 

/OK 

/PRJNT ERROR INFO 

/INCREMENT ADDRESSES 



/OELIMlTlNe CHARACTER 
/ADJUST iNdIrECTS 



/DONE INDIRECTS IF EQUAL 

/MASK ADDRESS BITS 
/PUT FIELD NUMBER ON IT 

/PUT IN NEW FIELD 

/RlAO Back 



/COMPARE 

/OK 

/PRINT ERROR INFO 

/INCREMENT ADDRESSES 



/WAS TRANSFER MADE OK 
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MXCHll 


02431 


740000 


02432 


610216 



MXCHll 



NOP 

JMP RTNl.X 

.EJECT 



/EXIT From here to loc 
/rtni In New field 



PAGE 39 MXCHiS MXCH15 

/ 

/PRINT ERROR JN SELECTED 4K 
/ 

02<933 000000 PRSEl 

02434 102075 JMS CRLt /C«i L^ 

02435 202715 LAC ERS6L /TEXT POINTER 

02436 043157 OAC PRNT 

02437 102037 JMS PNXt /pRINT 

02440 102075 JMS CRL[ 

02441 602312 JMP FCOMV /WAIT FqR AMOTHER CHOICE 

/ 

/ROTATE INSTRUCTION 19 LEFT SEfORE MOVING 

/ 

02442 000000 RT19L 

02443 744000 CLL /LINK » 

02444 043141 OAC TNUM /S*VE 

02445 777767 LAW -H /-V OECimAl 

02446 043151 OAC CT04 /SHIFT COUnT 

02447 203141 L*0 TNUM /INSTRUCTION 

02450 740010 RAL 

02451 748010 RTL 

02452 443151 jSi CTB4 

02453 602451 JMP ,.3 

02454 622442 JMP# RT1»L 

/ 

/KtYBOARD ROUTINE FOR TOrCED RELOCATION 

/ 

02455 000000 GOTO 

02456 750004 LAS /RtiAD Acs 

02457 503212 ANO K40 

02460 741200 SNA /CHECK BIT 12 

02461 602473 JMP NOSW /EQUALS 

02462 108075 jMS CRLF /CW.LT 

02463 202704 LAC PTWLV /TEXT POINTER 

02464 043157 DAC PRNT 

02465 102037 JMS PNXt /pRlNT PuT ACS 12 ON A 

02466 750004 LAS 

02467 503212 ANO K40 

02470 740200 SIA /WAIT FqR THE 

02471 602466 jMP ,-3 

02472 102075 JMS ORL^ /CR»LF X 2 

02473 102075 NOSW JMS CRL^" 

02474 202705 LAC GOri. /TEXT POINTER 

02475 043157 DAC PRNT 

02476 102037 JMS PNXt /pRlNT GO TO FIELD - 

02477 101547 JMS KEVIN /WAIT FoR INPUT 

02500 543217 SAO K315 /A CR - nO FORCED MOVE 

/AND RESUME AUTO RELOCATE 

02501 602547 JMP C^LC /CUEAR THE FORCED MOVE FLAG 

/ 

.IJECT 
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MXCH15 MXCH15 




02502 


543227 


SAO 


K377 


02Si03 


602473 


JMP 


NOSW 


02504 


742020 


RTRi 


RTR 


02505 


742020 






02506 


503242 


AND 


K30WK 


02507 


043176 


DAC 


destn 


02510 


101547 


JMS 


KEVIN 


02511 


543217 


SAD 


K2i» 


02512 


602547 


JMP 


crLG 


02513 


543227 


SAD 


X377 


02514 


602473 


JMP 


NOSW 


02515 


742020 


, RTfll 


RTRI 


02516 


748020 






02517 


742020 






02520 


740020 






02521 


503240 


AND 


K7aK 


02522 


243176 


XOR 


oestn 


02523 


043176 


DAC 


DESTN 


02524 


100653 


JMS 


WHERE 


02525 


043179 


DAC 


SOURCE 


02526 


102075 


JMS 


CRLI^ 


02527 


622455 


JMP# 


GOTO 


02530 


000000 CNOT 




02531 


202603 


L*C 


LOCER 


02532 


741200 


SNA 




02533 


622530 


JMP* 


INOI 


02534 


707704 


LIM 




02535 


142603 


Din 


LOCER 


02536 


102075 


JMS 


CRLF 


02537 


202707 


LAC 


NERN 


02540 


043157 


DAC 


PRNT 


02541 


102037 


JMS 


PNXt 


02542 


102079 


JM5 


ORL^ 


02543 


203124 


LAC 


FLA6S 


0254:4 


741100 


SPA 




02545 


602312 


JMP 


FCDMV 


02546 


602246 

/ 
203243 CI 


JMP 


STNXT 


02547 


"■LG LAC 


K400K 


02550 


740001 


CMA 




02551 


503124 


AND 


FLAGS 


02552 


043124 


DAC 


FLAGS 


02553 


600216 


JMP 
.EJECT 


RTNl 



/RUBOUT, RE-PRINTI GO TO FIELD 



/M*SK Bits 1,2, 

/FIRST CHAR, OF FIELD NO, 

/WAIT FOR INPUT, 

/A CR " nO FORCED MOVE 

/AND RESUME AUTO RELOCATE. 

/CLEAR TME forced MOVE FLAG, 

/RUBOUT, RE-PRtNTi GO TO FIELD 

RTRI RaR 



/MASK 8ITS 3,4 a 5, 

/OR FIRST < SECOND CHARS. 

/NEW FIELD, 

/WHERE ARE WE NOW 

/CURRENT FIELD 

/CRi LF 

/CHECK FOR ERROR 



/NO ERRORS IF 
/ENTER NEW FIELD 



/CRiLF 

/TEXT POINTER 

/PRINT NO MORE ERRORS 
/CR.LF 

/ACS A 1 • FORCED MOVE 

/WAIT For another choice 

/TRY NEXT FIELD LOWER 



/CtEAR THE FORCED MOVE FLAG 
/START OVER 



PACE «tl 


MXCH15 


MXCH15 






02S54 


000000 


MVERR 







02555 


043154 




DAC 


9A01 


02556 


721000 




PAX 




02557 


043155 




DAC 


OCAUr 


02560 


223177 




LAC* 


MOVfcS 


02561 


043156 




DAC 


GOODl 


02562 


202621 




LAC 


PHOH 


02563 


741200 




SNA 




02564 


102621 




JMS 


PHQH 


02565 


202603 




LAC 


LOCER 


02566 


741200 




SNA 




02567 


102603 




JMS 


LOCER 


02570 


202620 




LAC 


JMP3 


02571 


041013 




DAC 


INDY 


02572 


102075 




JMS 


CRLi[ 


02573 


777766 




LAW 


-12 


02974 


600765 


/ 


JMP 


ST|H 


02575 


200766 


LAC 


STCH*l 


02576 


041013 




OAC 


INOY 


02977 


750004 




LAS 




02600 


741100 




SPA 




02601 


100660 




JMS 


HALT 


02602 


622554 


/ 

LOCER 


JMP* 


MVIHR 


02603 


000000 







02604 


102075 




JMS 


CRL? 


02605 


202706 




LAC 


RELOC 


02606 


043157 




OAC 


PRNT 


02607 


102037 




JMS 


PNXt 


02610 


102075 




JMS 


CRLE 


02611 


622603 


WOTIS 


JMP« 


LQCIR 


02612 


000000 







02613 


102075 




JMS 


CRLF 


02614 


760277 




LAW 


277 


02615 


102032 




JMS 


PCHAR 


02616 


102075 




JMS 


CHLE 


02617 


622612 


J 


JMP« 


WOTIS 


02620 


602575 


JMP3 


JMP 
.EJECT 


LOCER- 



/SAVE Incorrect instruction 

/FIELD ANO address 

/S*VE 

/CORRECT INSTRUCTION 

/SAVE 



/DON'T PRINT IF 1 

/pRlNT PROGRAM RELOCATION ERROR 

/jMP LOCER-3 



/-10 DECIMAL 
/PRINT INFO 

/EQUALS jMS SPING 



/EMT 



/CR.LF 

/TEXT Pointer 



/PRINT PROGRAM RELOCATION ERROR 

/CH.LF X 2 

/EXIT AND PRINT THE ERROR 



/CR.LF 
/QUERY MARK 
/PRINT 
/CR.LF 
/EMT 
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MXCH15 



MXCH15 



02621 

02622 

02623 

02624 

02625 

02626 

02627 

02630 

02631 

02632 

02633 

02634 

02639 

02636 

02637 

02640 

02641 

02642 

02643 

02644 

02649 

02646 

02647 

02650 
02691 
02692 
02653 
02654 



000000 

102075 

202710 

043157 

102037 

102690 

202711 

043157 

102037 

102650 

202712 

043197 

102037 

102690 

202713 

043197 

102037 

102690 

202714 

043197 

102037 

102079 

622621 



/HCAOEH ROUTINE 
/ 



PHOR 



777773 
04314S 
102104 
622690 



/ 

CLNN 





JMS 

LAC 

OAC 

JMS 

JMS 

LAC 

OAC 

JMS 

JMS 

LAC 

OAC 

JMS 

JMS 

LAC 

OAC 

JMS 

JMS 

LAC 

OAC 

JMS 

JMS 

JMP* 



LAW 
OAC 
JMS 

JMPt 



CRLP 

T8TX 

PRNT 

PNXt 

CLMN 

AORXA 

PRNT 

PNXf 

CLMN 

GOATX 

PRNT 

PNXt 

CLMN 

BOATX 

PRNT 

PNXT 

CLMN 

PCWX 

PRNT 

PNXT 

crlP 

PHOR 



-9 

CT8? 

SPINC 

CLMN 



/C«iLF 

/POINTER FOR "TEST" 

/PRINT TEST 
/SPACE 5 
/"OCTAL ADR," 



/SPACE 5 
/"GOOD" 

/SPACE 5 
/"BAD" 



/SPACE 5 

/"Pat, CONTROL WQRO" 



/CR.LF 
/DONE 



/SPACE 



.EJECT 
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02655 


752521 


02656 


002761 


02657 


002765 


02660 


001074 


02661 


001124 


02662 


002773 


02663 


001150 


02664 


001176 


02665 


003000 


02666 


001414 


02667 


003063 


02670 


003067 


02671 


003005 


02672 


003037 


02673 


003050 


02674 


001661 


02675 


001756 


02676 


003056 


02677 


003252 


02700 


003312 


02701 


003073 


02702 


001652 


02703 


001652 


02704 


003112 


02705 


003104 


02706 


003016 


02707 


003030 


02710 


002717 


02711 


002723 


02712 


002730 


02713 


002734 


02714 


002737 


02715 


002747 


02716 


752522 



I 

/RETURN 


ADDRESSES (INDIRCCTS) 




OLMT 


752521 




TSNX 


TSTNR 


/test#« 


Aoax 


FADRl 


/PIRST ADR,- 


AOIR 


AORl 




DONl 


OPST 




AOXR 


LAORl 


/LAST ADRi" 


AP3R 


ADR2 




D0N2 


DLST 




SUPX 


SUPR 


/SUPPRESS- 


SUPXA 


SUPB1T*1 




ADRiP 


FRST 


/FtRST 


ADR2P 


lsta 


/L*ST 


OVRLP 


OVRLAP 


/AOR, Is WITHIN PROGRAM 


PISIN 


PROIS 


/P«OGRAm Is \^ FIELO 


TLMX 


TSLM 


/tsst limits 


SLMX 


SLHTS*! 




DONS 


CREVR 




SETX 


STAGS 


/SETUP ACS 


ERTBL 


ERWR0*1 




ENERR 


ERWRD*4l 




PTO 


PTOI 




ROTA 


ROTC 




ROTB 


ROTC 




PTWLV 


PUT12 




GOFL 


GOFLD 




RELOC 


PROR 




NERN 


NOHO 




TSTX 


TST 




AORXA 


ADR 




GDATX 


COAT 




BDATX 


BOAT 




PCWX 


PCWR 




ERSEL 


SLTER 




OLMTA 


752522 

.EJECT 
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MXCH15 



MXCH15 







/CONSTANTS TOR PRINT ROUTINE TCXTSi PACkeO 






/3 CHARACTERS PER WOROi 








/"TEST" 


1 




02717 


002717 


TST 


1 




02720 


230524 




2309241 7777241 a 




02721 


777724 








02722 


000000 


J 






02723 


002723 


AOR 


1 




02724 


240317 




240317J 401401J 2204011 





02725 


401401 








02726 


220401 








02727 


000000 


/ 

eOAT 






02730 


002730 


1 




02731 


171707 




1717071 777704J 




02732 


777704 








02733 


000000 








02734 


002734 


BOAT 


1 




02739 


040102 




0401021 




02736 


000000 


/ 

PCWR 






02737 


002737 


I 




02740 


240120 




2401201 1703401 2224161 


401417 


02741 


170340 








02742 


222416 








02743 


401417 








02744 


221727 




221727J 777704J 




02745 


777704 








02746 


000000 


/ 

8LTER 






02747 


002747 


1 




02750 


222205 




2222051 4082171 4016111 


140523 


02751 


402217 








02752 


401611 








02753 


140523 








02754 


240305 




2403051 400409] 0911061 


770414 


02755 


400409 








02756 


051106 








02757 


770414 








02760 


000000 









02761 


002761 


/ 

TSTNR 


1 




02762 


230524 




2305241 7741^241 




02763 


774024 








02764 


000000 








02765 


002769 


FAORl 


1 




02766 


221106 




2211061 402423) 220401] 


777740 


02767 


402423 








02770 


220401 








02771 


777740 
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MXCH19 


MXCH15 








02772 


000000 


/ 

laori 

/ 

SUPR 









02773 
02774 
02775 
02776 
02777 


002773 
230114 
014024 
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PRNT 


03157 


ADRCW 


03160 


EXIT 


03161 


OVER 


03162 


APRA 


03163 


AORB 


03164 


MROTA 


03165 


LTST 


03166 


TTYW 


03167 


TTjUU 


03170 


tA 


03171 



MXCH15 



MXCH15 



PAGE 


61 


sew 


03172 


BITSUP 


03173 


NXLOC 


03174 


SOURCE 


03175 


DESTN 


03176 


MOVES 


03177 


BGNLO 


03200 


PINX 


03201 


SXR 


03202 


WORK 


03203 


MEMADR 


03204 


Kl 


0320? 


K2 


03206 


K7 


03207 


K10 


03210 


K20 


03211 


K4ia 


03212 


K77 


03213 


Kt(90 


03214 


K200 


03219 


K212 


03216 


K215 


03217 


K254 


03220 


K260 


03221 


K264 


03222 


K270 


03223 


K300 


03224 


K33i 


03225 


K370 


03226 


K377 


03227 


K400 


03230 


K4K 


03231 


K7700 


03232 


K7777 


03233 


Kt0K 


03234 


K17S 


03235 


K20K 


03236 


K40K 


03237 


K70K 


03240 


K74K 


03241 


K300K 


03242 


K400K 


03243 


K177 


03244 


K370K 


03245 


K700K 


0324A 


K770K 


03247 


MAXERR 


03250 


ERWRO 


03251 


CLSF 


700001 


CUOF 


700004 


CUON 


700044 


RSF 


700101 


RCF 


700102 


RSA 


700104 


RRS 


700112 



MXCHIS 



MXCH15 
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■RSB 


700144 


PSF 


700201 


PCF 


700202 


PSA 


700204 


PSB 


700244 


KSF 


700301 


KRB 


700312 


TSF 


700401 


TCF 


700402 


TLS 


700406 


EEM 


707702 


LEM 


707704 


EXBA 


707741 


SBA 


707761 


EPA 


707762 


EBA 


707764 


PAX ■ 


721000 


CLX ' 


735000 



